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ABSTRACT 


This program is a functional test of the LAOO terminal. It 
can test up to 40 terminals at a time, interfaced through a 
DZ11-A/E asyncronous multiplexers. This program was designed 
to test all of the functional characteristics of the LAOO ter- 
minal in a DMT or PMT enviornment. 


1.1 Functional Description 


This program consists of a test selection and control section, 
a console terminal driver section, multi unit DZ11 driver sec- 
tion, and twenty two functional tests. The tests are of three 
types. printer function tests, manual intervention tests, and 
exercisors. 


1.2 Intended Users 


This program was designed to test every functional charac- 
teristic of the LAOO terminal, and as such will be used for 
design maturity testing. The operator will have the option of 
running the program in a non-intervention mode, thus allowing 
the program to be used in a PMT enviornment. The tests were 
not written to F.S. or FA&T requirements, and the use of this 
program in those areas is not recommended. 


REQUIREMENTS 
2.1 Equipment 


This program will require a PDP-11 processor, with 16K of mem- 
ory. for each eight terminals to be tested a DZ11-A,E is re- 
quired along with one H317-E distribution pannel for each six- 
teen terminals under test. A hardware switch register is sup- 
ported, but is not required. If program control is to be via 
console terminal then a terminal and interface at the standard 
address & vector are required. 
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2.2 Related programs. 


This program will perform cursorary py of the D211 inter- 
face, and should not be considered a valid test of anything 
other than the LAOO terminal. PDP-11 processor and amy di- 
agnostic programs, along with DZ11 diagnostic programs s ould 
be run periodicly to insure correct operation of the system. 


Other LAOO Diagnostic programs: 
CZLAIA-0 this program 
CZLAJA-O LAOO FA&T Program 
CZLA??-0 LAOO FS Diagnostic 

2.3 Terminal Configuration 


This orogres requires that all terminals to be tested be set 
up for 300 baud, 1 stop bit, Odd parity, and XON-XOFF enabled. 
Enter setup mode and type an 8 to get a printout of the cur- 
rent switch settings. If mot correct change the switches then 
verify again using the 8 key again. These switches are locat- 
ed on the PC board directly under the keyboard assy. 


3.0 LOADING PROCEDURE AND INITIALIZATION 


Load the LAOO diagnostic program tape following normal proce- 
dures. If a hardware switch register does not exist, the pro- 
gram will use the contents of location 000176 as the value of 
the switches. Therefore, be sure to load location 000176 with 
the — value before starting the program when not using 
switches. 


3.1 Starting addresses 


There are two starting addresses for this program. Starting 
at location 000200 will put the testing under switch register 
control. Starting at location 000204 will put the program 
under console control. 


3.2 Modifications to program. 


There are a number of common data storage locations which may 
be modified by the operator to compensate for non standard 
configurations, and different CPU types. 


For DZ11"s not at the standard addresses or vectors the loca- 
tions named dzaddr and dzvect can be changed accordingly prior 
to starting the program. 


Location locpc contains a time constant and is initially set 
for a PDP-11/20 processor. This time constant is not criti- 
cal, but large variations from those listed in the table will 
result in inefficient operation. it is better to have a 
longer time constant than one too short because the routines 
that use the timeout feature will abort the timeout when the 
required input is recieved. Those tests that require manual 
intervention will not function correctly if the timeout is too 
fast for operator response times. 


This table is duplicated in the Listing. 


loopc: 000314 ;time constant for11/20 
zset to 202 for 11/03 
zset to 251 for 11/10 
sset to 554 for 11/40 
sset to 755 for 11/45, 11/60 
‘set to 1237 for 11/45, 11/70 
zset to 2127 for 11/45 bip, 11/55 
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3.3 Execution time 


At 300 baud and excluding manual intervention tests this pro- 
gram should take approximately 13 min. 


4.0 Control and test selection 


There are two means of controlling the execution of this 
program: via the © ; ’ 
console switch register, or via the console terminal. 


If Pe green is started at location 200 and no hardware 
switc 

eee exists the program will use the contents of location 
176 as the switches 


4.1 Switch register control 

The various switches and their functions are Listed below. 

switches may be changed and set as desired except as noted in 

the specific. switch descriptions. Refer to the detailed 

switch descriptions for further, more complete information. 
Switch number Description 


15 1(up) Halt on error 


0 (down) Continue after error report 

14 1(up) = Loop on test if error detected 
O(down) = Continue testing 

13 1 (up) = Inhibit error reports 
O(down) = Print error reports 

12 1(up) |= Run individual test 
O(down) = Run tests in sequence 

10 1(up) = Get test no. fromsws4: 0 
O(down) = Use default test 40 

9 1(up) | = pmt mode minimum manual intervention 
O(down) = dmt mode intervention required 

8 1 (up) = Run 1 pass of test sequence then halt 
O(down) = Keep running test or sequence 


4- Test number selection 
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4.1.1 Switch 15 ; 
Placing switch 15 down will cause the program to continue 
on errors ae a of the i/o tests. With switch 15 up, 
the program will halt (at errhlt) on any error during the 
i/o tests with the location of the error in RO. pressin 
continue will cause the program to continue if switch 1 
is down (Loop on error). With switch 12 up, pressing con- 
tinue will cause the program to loop on the failing test. 


4.1.2 Switch 14 

Placing switch 14 up will cause the program to ‘‘loop on 
test’' if an error is detected in that test. Error reports 
will be typed unless inhibited (switch 13 up). Looping 
wil® occur automaticly, without operator intervention, and 
will and will continue until the error ceases to happe, or 
the switch is placed down or =0. 4.1.2 Switch 14 

Placing switch 14 up will cause the program to ‘‘loop on 
test’' if an error is detected in that test. Error reports 
will be typed unless inhibited (switch 13 up). Looping 
will occur automaticly, without operator intervention, and 
will continue until the error ceases to happen, or the 
switch is placed down or =0. 


4.1.3 Switch 13 
Placing switch 13 up will inhibit the printing of all 
error reports. Can be used in conjunction with switch 
14 to lcop in errors for troubleshooting. 


4.1.4 Switch 12 

Placing switch 12 up will cause the program to loop in the 
current, or selected test. If switch 8 is up the test 
will halt at the end of the test. Pressing continue will 
cause the test to be started over again. Placing switch 
12 down will cause the next sequential test to be executed 
‘ om the test is an intervention test and PMT mode is 
selected. 


4.1.5 Switch 11 
Not used. 


4.1.6 Switch 10 
Placing switch 10 up will cause the program to use 
contents. of switches 4 thru 0 as the test number. 
switch 12 is up this is the test that will be run, if 
switch 12 is down the sequence of tests to be run will 
start with this test. 


4.1.7 Switch 9 
Putting switch 9 up at the start of testing will inhibit 
manual intervention tests , and use a fixed set of parame- 
ters as listed in the description of each test. 
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4.1.8 Switch 8 ; 
with switch 8 down the program will loop on the selected 
test or test sequence as selected by switch 12. Placing 
switch 8 up will cause the program to halt at the comple- 
tion of the current test, or test sequence. Pressing con- 
tinue will result in the program restarting the test or 
sequence depending on switch 12. 


4.1.9 Switches 4 to 0 a 
Switches 4 to 0 are used to select specific tests when 
under switch register control. Test numbers are always in 
octal, from 00 to 22. 


4.2 Keyboard control 


Switches on the console switch register will have no effect 
when under terminal control except for switch 13. 


The program will print the following : ENTER MODE D OR P 
: respond by typing either a 'D' for DMT mode, or a ‘P' for 
PMT mode (no manual intervention). 


The program will print READY on the console, then wait for 
commands from the keyboard. 


The following commands will be recognized : 


to run a selected test. 
to sequence thru tests. 
to loop on error. 
to halt on error. 
to clear the H & L commands 
to set the ‘width’’ control 


The period (.) is a terminator used in conjunction with the R 
and S commands to specify a single pass. That is to stop 
after running a test, or to stop after running a sequence of 
tests. 
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To abort operations and return to the WAIT state at ary time 
type a CTL=C. The program will respond with READY and wait 
for command input. 


Enter one command per ‘ine, followed by a return. If con- 
flicting commands are entered the last entry will be used. 


To exit ‘command mode’ type an escape. The program will type 

READY and begin execution of the commands. Commands can 
be entered at any time, but new tests will not start until the 
escape character is recieved. 


Examples of commands : 

R12 run test 12 

R23. run test 23 then halt 

S. sequence all tests then halt 

$27 sequence all tests starting with test 27 


w100 set width to 100 (octal) columns 
( 204=132 colm, 120=80 colm ) 


If a test is selected that is an operator intervention test, 
and PMT mode is selected the following will be typed: RUN 
INTERVENTION TEST ? answer Y or N. If Y is typea the test 
_ be run. If N is typed a new test number will be request- 
ed. 


The R,S,H,L,W, and C may be either upper or lower case, but 
the test number must always be a 2 digit octal number. The 
command, test number, and terminator are echoed by the pro- 
gram, thus each character will be printed twice if the termi- 
nal is in half duplex. If an error is detected in the test 
selection (illegal test number or command character) a ques~ 
tion mark is printed and the message will be repeated. 


READY 
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5.0 test groups 


5.1 Terminal tests 


5.2 Intervention tests 


The tests 17 thru 24 require manual intervention. these 
tests are not run in PMT mode (see description of sw 
4.1.7, and console control startup 4.2). 


5.3 Exercisors 


Tests 15 and 16 are designed as exercisors, and can be run for 
extended periods to ‘burn in’’ the units under test. 


5.4 Test assignments 


Tests Listed as DMT will not be executed in 
PMT mode. See description of switch 9 4.1.7. 


Test00 Data paths test 

Test01 ALL printable characters test 
Test02 Non printable characters test 
Test03 Printhead dot matrix test 
Test04 Horizontal pitch test 

Test05 Space-backspace test 

Test06 Set margins test 

Test07 Horizontal tabs test 

Test10 Multiple Line feed test 
Test11 Horizontal motion test 

Test12 Buffer overrun test 

Test13 Vertical pitch test 

Test14 Bell test 

Test15 Life test 

Test16 Printer dynamic exercisor 
Test17 Interface speeds test 

Test20 Keyboard echo test 

Test21 Character code echo test. 
Test22 Pitch setup test 


Test description 


6.1 Data paths test00 


SEQ 0010 
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This test will print four Lines of alternating *U U pat- 


tern. It is a confidence test of the internal data bus, 
and reciever logic. 


Example : 
#U*UtU*U*UFUeUeU... 
U®tU*U*U*U*U*UtU*, .. 
eUeUeUeUeUeUeUFU, .. 
U®UsU*U8U*U*U*U*... 


estimated time at 300 baud 18 seconds. 


6.2 ALL printable characters test01 : ; 
This test will print each of the printable characters in 
groups of four, seperated by two spaces. The groups will 

printed in order, and the number of groups per line 
will be dependent on the ‘width’’ set at the start of the 
diagnostic. (default 132 colm) 


Example : 
BBBB 
FFFF 
4444 
aaaa 


estimated time at 300 baud 30 sec 


Non printable characters test02 

This test checks all non-printable characters. In_ this 
test all non-printable character codes are transmitted, 
followed by the words: ‘NON-PRINTING CHARACTER’ TEST.THE 
NEXT LINE SHOULD BE BLANK. 

If any characters appear on the next Line an error exists. 


The following codes are transmitted : 


RS 037 
DC1(XON) 


estimated time at 300 baud 5 seconds 


6.4 Dot matrix test03 
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This test will print the five characters JZH*#$ , then 
print four Lines of data that will create black boxes by 
overprinting the same five characters as above. Ten boxes 
will peer on each of the four Lines at different spac- 
ings. This test will amplify any weak or intermittant 
head wire problems. The boxes should appear an even dark 
black, with no dots missing or Lite streaks. 


estimated time at 300 baud 10 seconds 


he izontal pitch test04 ; 

This test will print five groups of lines at each of the 
horizontal pitch settings. Each group of Lines will con- 
sist of first a Line stating the current pitch gp tteg 
then a line of the characters A thru Zz. This_is done for 
horizontal pitch settings of 10 CPI, 12 CPI, 13.2 CPI, and 
16.5 CPI. The setup for this test is down Line loaded. 


estimated time at 300 baud 30 seconds 

Space-Backspace test05 : 

A Line of alternating slashes and spaces is printed across 
the page. The program will then backspace through the 
Line and overprint the slashes with backslashes. Two 
lines are printed for each pass of the test. The pattern 
produced is a line of alternating X's and spaces. The two 
oe should cross exactly in the middle creating the X 
character. 


example : XXKXMXXXKXMKMKXKMKXXMXXXKXXKXK XK XK 
estimated time at 300 baud 45 seconds 


SEQ 0012 
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6.7 Set margins test06 


This test will set 4 pairs of left and Ot margins, then 
it wili print a line of ‘="s that should be within those 
margins. Also a message will be sent specifying an error 
if it's not at the left margin. A reference line will be 
printed showing the margin Limits being set up. All hori- 
zontal pitch settings will be tested. 


ERROR IF NOT AT LH MARGIN 
estimated time at 300 baud 40 seconds 


horizontal tabs test07 

this test will print a reference Line composed of a number 
of periods followed by a 'V’. This pattern is repeated 
across the page. The location of each V will mark the lo-~ 
cation of a tab stop set by the program. Three Lines will 
then be printed under this reference line, composed of a 
horizontal tab followed by an I, repeated across the page. 
The I’s should Line up directly under the reference Line 
V°s. 


This will be repeated for a variety of different tab 
settings. The number of tabs per line will be controled 
by the ‘width’’' specified at the start of the diagnostic. 


estimated time at 300 baud, 132 col - 2 min 


SEQ 0013 
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6.9 Multiple Line feed test10 : . 
This test will print a reference Line of dashes then — 
N lines and print the no. of Lines skipped along wit 
some dashes for visual reference. Each skip count is done 
twice for N= 1 to 7. Vertical pitch will be 6 Lines per 


estimated time at 300 baud 15 seconds 


6.10 Horizontal motion test11 er" ; 

This test will exercise the head positioning logic by 
printing a_ line of H's at random column locations within 
the Line. The head will be positioned — spaces, back- 
spaces, and carriage returns followed by spaces. The 
number of columns printed is controled by the ‘width" as 
set at the start of the program. All H's should be evenly 
spaced, with no overprints. 


estimated time at 
300 baud 4 min 


6.11 Buffer overrun testi2 

This test will force the terminal to send an XOFF char 
(023) by issueing a series of time consumeing movement 
commands, followed by enough characters to fill the buffer 
past it's 118 character Limit. When the terminal has emp- 
tied the buffer to the 10 character level it should 
transmit an XON character (021) oe br the host to fin- 
ish sending data. Any terminal that fails to send the XON 
will. be considered to be ‘‘dead’’ , and will be deselected 
or set inactive. 


estimated time at 300 baud 10 seconds. 
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6.12 Vertical pitch test!3) ; 
This test will print six lines at each of the vertical 
pitch settings:  2,3,4,6,8 and 12 lines per inch. The 
Line printed will be a message that lists the current CPI 
~~ settings. The setup for this test is down Line 

oaded. 


estimated time at 300 baud 40 seconds 


6.13 Bell test14 : 
This test checks the printer bell to insure that eight 
bells are distinctly heard, even when sent at the maximum 
transfer rate. The program sends 8 bell codes at the max- 
imum rate to the printer then waits 2.5 seconds to allow 
the operator to hear the bells. 


estimated time 1 second 


6.14 LAOO Life test15 , ; 
Ordinarily this test simply prints a Line of ‘A's. 


When this test is looped on, it prints two lines of each 
rintable character. When all printable characters have 
en done, they will simply be repeated. The current pass 
number is printed on each Line, with a 1 column offset on 
each new Li..e.The number of characters per line will be 
determined by the ‘width'’ as selected at program startup. 


example : 
01 AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
A 01 AAAAAAAAAAAAAAAAAAAAAAAAAAA 
BB 01 ~ 


BBB 01 
cccc 01 cCccccccccccccccccccccce.. 
ccccc 01 Ccccccccccccccecccccccce.. 


estimated time 1 Line 300 baud 5 seconds 
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6.15 LAOO dynamic exercisor test16 : 

This test will print 35 Lines of mixed format data. A 
pattern will be created which is comprised of the upper 
and Lower case character set plus eight of the special 
symbols. This pattern will be in the form of a 10°° by 6 

matrix, where the upper left corner will have the — 
character density and the lower right corner will have the 
lowest density. All possable combinations of horizontal 
and vertical pitch will be used. 


estimated time at 300 baud 2.5 min. 


intervention tests 


no time estimates given 


6.16 interface baud rates test17 

This test will request that the operator change the speed 
on all terminals to 110 baud. The program will then 
transmit a message to all terminals at this baud rate, 
identifing the current speed, then by use of the escape 
sequence ESC [Oc the terminal ID message will be sent 
from each terminal to the PDP-11 to verify correct 
transmission and reception by the terminal. This same 
procedure is repeated for 300 baud. because of interven- 
tion no time estimate is given 


6.17 Keyboard echo test20 
This test will require the operator to type all the igen 
ing re on the keyboard. If any keys are not seen by the 
host they will be requested again , anda third time if 
necessary. Instructions witl then be typed to press the 
tab, return, and other non printing keys. five seconds is 
allowed per key delay. 


6.18 Character code echo test21 
This test will print the octal code of any key pressed, 
along with the ascii character. Where the character is a 
non printable code the mnemonic of that code will be 
printed. The delete char will be echoed as a mnemonic, 
then the test will be done. 
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6.19 Pitch setup test22 


this test will require the operator to change the terminal 
setup to that requested. After each setup change the 
PDP=11 will send a Line of data that should conform to the 
params setup. The data sent after vertical pitch changes 
will be a number of short Lines that should span 1 inch 
verticaly. That is eignt Lines after the change to 8 LPI 
etc. 


SEQ 0017 
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CZLAIAO LAOO DMT PROG MACRO M1110 20-APR-78 04:21 PAGE 1 


-TITLE CZLAIAO LAOO DMT PROG 
. SBTTL ea PROGRAM FOR CA00 TERMINAL 


- ENABL 
-ENABLE AMA 
LIST MC,ME 


DLRVEC=60 
DLTVEC=64 ° 
PR10=C00000 
PR14=200 
PR17=340 


. 
ee ed ed od od 


SBBSESSSSSISSSSSSSSSasy 


B1T12=10000 
B1T13=20000 
B1T14=40000 
B1T15=100000 


DZCON=5. 
-ASECT 


000012 
000000 


001220 
001242 


;SOME DEFINITIONS 


;MAX NO. OF DZ11°S_ THIS COMPILE 


2.0 START OF TRAP CATCHER AREA 
6,0,12,0,16,0,22.0 


START ,PRIO 


0 3ACT11 LOAD MEDIUM 

0 ;ACT11 MODE QO IS MANUAL MODE 
APTHDR ;APT11 HEADER BLOCK ADDRESS 
EOP 3;ACT11 END OF PASS HOOK ROUTINE 


0 
20000 ;ACT11 MANUAL MODE ONLY 


START 
KSTART 


SEQ 0020 
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PMT PROGRAM FOR LAOO TERMINAL 
001000 


-=1000 
-EVEN 
;TOP OF STACK AREA 
; APT PARAMETER BLOCK 
APTHDR: .WORD 
. WORD 


10. 
SETEND-SMAIL/2 


;APT MAILBOX AREA 


000000 
000000 
000000 


000000 
000000 
000000 


GAD: .WOR 
S$MSGL: .WORD 
;APT ENVIORNMENT TABLE 


E 
$E TEND : 


SEQ 0021 


HIGH ORDER ADDRESS BITS 

SADDRESS OF APT MAILBOX 

; TIME FOR LONGEST TEST 4 MIN. 

ZTIME FOR QUICK PASS 

; TIME FOR EACH ADDITIONAL DVC 

LENGTH OF MAILBOX + ETABLE 


MESSAGE TYPE CODE 
:FATAL ERROR NO. 


UNIT NO. UNDER TEST 
MESSAGE ADDRESS (WORD BOUNDRY) 
MESSAGE LENGTH (IN WORDS) 


+= STAND ALONE, 1=AUTOMATIC MODE 


3 CPU OPTIONS 
:MEM TYPE & HIGH ORDER BITS 
sMEMORY ADDRESS- HIGH 


VECTOR #1, AND PRIORITY 
VECTOR #2, AND PRIORITY 
BASE ADDRESS OF DEVICES 
sDEVICE MAP 

END: OF ETABLE 
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COMMON DATA STORAGE 
sADDRESS OF 1ST D211 
ZADDRESS OF 1ST DZ11 VECTOR 
ns ;TEMP STORAGE FOR DZ XMIT INTERRUPT ROUTINE 


S3838283 


ERROR SWITCH 

;HOLDS TEST TABLE POINTER 

POINTER TO CURRENT TEST 

THIS IS THE SIMULATED SWITCH REGISTER 
THIS IS THE SWITCH REGISTER CONTROL SWITCH 
;POINTER TO SWITCH REG, OR SOFT SR 

THIS IS THE PROGRAM PASS NUMBER 


sues 


oo 
8 
ssssssssssssssss 


ee ee Le 
fe] 
_ 


Ba 


000314 


SRSPSLS 
SB35e85 


000000 


19800 001144 
19900 001146 


SS8sS 

Seuss 
8888 
SEBS 


120 FOR 80 COLM 
3;DZ_ TRANSMIT MODE 
;PMT MODE FLAG 


NO. OF DZ°S ACTUALLY ON SYSTEM 
[LINE NO. UNDER TEST 

:CONSOLE BUFFER POINTER 
[CONSOLE ROUTINE TEMP FLAGS 
:TEST DESCRIPTION DATA 


7# OF UNITS UNDER TEST 
START POINT FOR PROGRAM 
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CZLAIAO LAOO DMT PROG 


START POINT FOR 


Sessezssezasy 


2700 001356 
2800 001362 
001366 


3000 001370 
3100 001374 
3200 001400 
3300 

3400 001402 
3500 001410 


3600 001414 
3700 001416 
3800 001420 


PROGRAM 


012737 


012705 
004737 
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001000 
100000 


001120 
020326 
034442 


020304 
001342 


024546 


001120 


000060 
000062 
000064 


000066 
177560 


001206 


000004 


START: MOV 
BIS 


JSR PC ,SWRTST 
JMP INIT 


#1000, SP 
#81115, SRCONT 


SEQ 0023 


; SETUP STACK POINTER 
SET SWITCH CONTROL 


START HERE IF IN CONSOLE CONTROL 


KSTART: MOV 
JSR PC,SWRTST 


#TTYIN, a#60 
#PRI4 ,ah62 


#PRI4, a#66 
#101,a4177560 
TMPTST 


SRCONT 


#TKBUF ,PNTR 


#MSGO0 
#MSGO00,R5 
PC,CSEND 
INIT 


;HERE WE INIT THE DZ11 ROUTINES 
INIT: NOP 


UUT 

#2$, TRAPS 
DZADDR ,RO 
DZNUM 
(RO) 


DZNUM 
#10,RO0 
1$ 


#6, TRAPS 
ZNUM 


CURREP(RO) 
CURADD (RO) 
CURTER(RO) 
STOP (RO) 


INIT THE STACK 
INIT CONSOLE VECTOR AREAS 


[COMMANDS HAVE PRIORITY 


; TURN ON THE CONSOLE 


; INPUT BUFFER POINTER 
;SEND TEST ID 

;GET MESSAGE ADDRESS 
SEND MESSAGE 


;SU_ TRAP CATCHER 
;GET FIRST DZ ADDRESS 


3DZ PRESENT ? 


YES COUNT IT 
[POINT TO NEXT ADDRESS 


FIX TRAP CATCHER 

;ANY DZ'S ? 

;NO- NOTHING TO TEST 
;CLEAR THE STACK POINTER 
GET DZ COUNT 

78 LINES PER D2 

SAVE TOTAL NO OF LINES 
START OF COMMAND BUFFERS 


END IS 20 WORDS AWAY 
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CZLAIAO LAOO DMT PROG 
PROGRAM 


START POINT FOR 


5600 001520 
5700 001526 


7600 0016 
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000145 020626 
000002 
000050 


032330 


#145 ,DZLINE (RO) 
#2,R0 

#50,R2 

R1 

4$ 


; SETUP VECTORS FOR oot a thi 
INIT1: MOV #DZR 


T,R2 
aDITINT. °R3 
DZVECT,R5 
DZNUM,R4 
R2,(R5)+ 
#240, (R5)+ 
R3,(R5)+ 
#240, (R5)+ 
#12,R3 
#12,R2 
RG 
1$ 


INIT TO 300 BAUD ODD PARITY 
‘NEW BUF=OLD BUF + 20. 


FIRST VECTOR ADDRESS 
;SETUP A COUNT FOR DZS 
SETUP RECIEVE - VECTOR 
ZAND PRIORITY 


PRIORITY 
SET POINTER TO NEXT INT SERVICE ROUTINE 
3SU NEXT RX INT SVC ROUTINE 


:NEXT LINE PLEASE 
71F THERE IS ONE 


SEQ 0024 





ao 
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START POINT FOR PROGRAM 


10200 001724 
10300 


10400 
10500 


10600 

10700 001726 
10800 001732 
10900 001736 
11000 001742 


88 


S88888s 


j 
1 
1 
1 
1 
1 
1 
: 
1 


13100 002040 
13200 
13300 002044 
13400 


013701 


001152 
026446 


025626 1$: 
026066 


025746 


INIT 0211 RECZEVE 
INIT2: MOV 


NUMLIN,R1 
#KBBUF ,R2 


RO 
KBCNT (RO) 


#6, KBBUFE (RO) 
4562 

R1 

1$ 


INIT DZ11 CSR REGISTER TABLE 
INIT3: MOV DZ RO 


1$: 


; INITIALIZE 
INIT4: MOV 


1$: 
2$: 


002044 
031546 
012720 
000002 
012730 
000002 


001202 


000006 
002046 


NUM, 
#DZCSR,R1 
DZADDR ,R2 
R2,(R1)+ 
#20, (R2) 
#10,R2 


R 
1$ 


TABLE OF TCR BITS 
DZNUM,R1 


#TCRBIT.R2 


#5$, TRAPS 
DZCSR(RO) ,R1 
#12720,R2 
R2,2(R1) 
Re 
#12730,R2 
2$ 

#2 -RO 

R3 
DZNUM,R3 
1$ 

#6, TRAP4 
INIT6 


SEQ 0025 


GET # OF LINES 
;SETUP FIRST KEYBOARD BUF FERhASEAOATDRESS 


;ZERO CHAR COUNT 

:DEFINE BEGINING OF BUFFER 
INIT PUT IN POINTER 

SAND TAKE OUT POINTER 


[DEFINE END OF BUFFER 


;AS 16 BYTES PAST BEGINING 

;NEXT LINE PLEASE 

;BUFFER AREAS py se BYTES LONG EACH 
zANY MORE TO SET 

YES. DO SO 


; COUNT OF DZS 


;SETUP ADDRESS OF TABLE 

;SETUP ADDRESS OF 1ST CSR 

:PUT A CSR yt ate INTO THE TABLE 
CLEAR THE DZ 

:CSRS ARE 4 WORDS APPART 

SANY MORE TO DO? 


ZYES. DO EM. 


7RX~ we po, eae 1-STOP,7-BIT 
LOAD L 


DONE ALL LINES ? 


DZLPR TRAPPED (16XXX2) 
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START POINT FOR PROGRAM 


15200 002152 
tty 


15400 
tears 002156 
15600 002160 


15700 
15800 002164 
15900 002166 
16000 
16100 002172 
16200 002174 


16700 002210 


MACRO M1110 20-APR=78 04:21 


INIT6: 


1$: 


PAGE 6 


DZNUM,R1 
DZCSR(RO) ,R2 
#5$, TRAPS 


6(Re) 


;RING-CARRIER REG. 


eolee G (R2) :SCAN-EN,RX INT EN, TX INT EN >>CSR 
#7$, TRAP 
#377 .4(R 4 (Re) ZENABLE ALL LINES TX >> TCR 


R1 

1$ 

#6, TRAP4 
ISEQ 


10$ 


#8 
A3/P 5(R2) :SET DTR ALL LINES >> TCR+1 


; TRAPPED FROM 16XXX6 RING/CARRIER 
; TRAPPED FROM 16XXxX0 CSR 
; TRAPPED FROM 16XXX4 TXMIT CTL 


; TRAPPED FROM 16XXX5 DTR 


SEQ 0026 
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START POINT FOR PROGRAM 


19100 002340 

19200 

19300 

19400 

19500 002342 

19600 002350 

19700 002356 
2364 


20500 002422 
20600 002430 


002434 
20700 002440 
20800 002446 
20900 


012706 
012737 


012705 


012737 
012705 
004737 
004737 
000001 
012705 
004737 


012705 


005037 
117737 


012705 
004737 


012737 
000002 
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001000 
020326 


2113 
020304 
042164 
020304 


177562 


176560 


001160 
020304 
000101 


176636 
176630 
176622 
001176 
000060 
000062 


001160 


177560 


;TEST SEQUENCER SUBROUTINE 

; TEST SEQUENCE INITIALIZATION 

ISEQ: MOV 
MOV 

SENDALL #MSGOO 

MOV #M 


#PRIO, #62 
#MSGK2 
#MSGK2,R5 
PC, CSEND 
PC.QUIET 


PC, CSEND 
oe 


WSEQ: 


SET STACK AT 1000 
INIT TTY BUFFER POINTER 


;SEND TEST I.D. 
;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
;SIZE FOR TERMINALS 

; SWITCH CONTROL ? 

> YES=JUMP 
:SU vy RECV INTR VECTOR 


PMT MODE MSG. 
;GET MESSAGE ADDRESS 


SEND MESSAGE 


SEND ‘READY'' 
;GET MESSAGE ADDRESS 
; SEND MESSAGE 
;"'ENTER COMMANDS'' 
:GET MESSAGE ADDRESS 


;SEND MESSAGE 


; MODE ANSWER AND TTY VECTOR SETUP 


SE QMS : a#177562, i 
#240,aPN 
#'P, SPNTR 
2$ 
#81715 ,PMODE 
3$ 


PMODE 
#TTYIN, a#60 
#PRI7,a462 
WORK 


PC, CSEND 
#101,a4177560 


;GET INPUT ANSWER 
STRIP PARITY & LC 
;PMT MODE ? 


sNO- JUMP 
sYES~ FLAG IT 


DMT MODE 
sSET TTY IN VECTOR 
:PRIORITY 7 


sECHO THE CHARACTER 
3;GET MESSAGE ADDRESS 


SEND MESSAGE 
CONSOLE ACTIVE 


SEQ 0027 
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START POINT FOR PROGRAM 


21100 
21200 
21300 002450 


24100 002634 
24200 

24300 

24400 

24500 002640 
24600 002644 
24700 002650 
24800 002654 
24900 002656 
25000 002662 


002704 
25500 002710 
25600 002716 
25700 002722 


25800 002730 
25900 002734 


001116 


001214 
001214 


INITIAL TEST STARTUP SEQUENCE 
LSEQ: SRCONT 
B 20$ 


PC,GETSWS 
1$: #81T10,S0 


13 
PC,VALID 
GO 

10$ 

PC ,GETTST 
PC ,MODCON 
GO 

3$ 


40$ 
#B1T12,S0 
5$ 


#MSGS1 
#MSGS1,R5 


MODE 
PC,SEND 
GO 
40$ 
so 
PC,GETTST 
1,60 
40$ 
; CONSOLE CONTROL SECTION 
208: PC,GETTST 
PC ,MODCON 
GO 


21$: 
25$: 


SEQ 0028 


+ SWITCH CONTROL ? 
JUMP TO 20 
“READ SWITCH REG. 
TEST NO. IN SWS ? 

:NO= GOTO 13 
CHECK VALIDITY 


3NO GOOD GOTO 10 
TEST ADDR & INFO 
sMODE CONFLICT ? 


7YES- GOTO 3 
;O0K- GO START TEST 
; SEQUENCE TESTS ? 


YES GOTO 5 


sERROR MODE CONFLICT ***** 
;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 


TRY NEXT TEST 


;ERROR INVALID TEST NO. ***** 
;BUILD SEND CALL USING MESSAGE ADDRESS 


zNOW SEND THE MESSAGE 


SU FOR TEST 0 


TEST ADDR & INFO 


GET TEST ADDR & INFO 
sMODE CONFLICT ? 


:YES- GOTO 25 
:GO START TEST 
RUN ANYWAY ? 


sYES GOTO 27 
;SEND ‘'READY** 
;GET MESSAGE ADDRESS 


SEND MESSAGE 


:GO BACK TO WAIT 
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START POINT FOR PROGRAM 


26000 002736 100002 

26100 002740 000137 002336 : WAIT FOR NEW COMMANDS 
26200 002744 000137 002754 : START TESTING 

core 002750 000137 002450 : GET NEW TEST DATA FROM SwS 
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START POINT FOR PROGRAM 


26600 
26700 TEST RUN & POST RUN CONTROL 


26800 
26900 002754 004 033000 RSEQ: PC ,RESETO RESET THE TERMINALS 
27000 002760 001216 TST UUT ZANY TERMINALS TO TEST ? 
27100 002764 BEQ 91$ 
27200 002766 SENDALL #MSG75 
002766 037154 MOV a ;BUILD SEND CALL USING MESSAGE ADDRESS 


sNOW SEND THE MESSAGE 
:G0 DO TEST >=>=>=>=>=->=->=->=> 
;WAIT TILL DONE 
sPASS COUNT +1 
sREPORT PASS DONE 
sSWITCH CONTROL ? 
zNO- GO TO 5 
001160 
001160 
sCHECK SWITCH REG FOR CHANGES 


1$ 
#81715 ,PMODE 
2s 


PMODE 
#007377 , WORK ;LOOK AT BITS 15,14,13, &8 
WORK , SO 


WORK 
#007377 , WORK 


WORK , SO 

#B1T12,S0 SEQUENCE TESTS ? 
10$ 7YES- JUMP TO 10 
Sa END OF TEST HALT ? 


JUMP 
SWITCH CONTROL ? 
JUMP 


; END OF TEST 
GET NEW CONTROL INFO 
SRESTART TEST 


NO TERMINALS SELECTED !!! 
:GET MESSAGE ADDRESS 
PC, CSEND ;SEND MESSAGE 


ISEQ 
so ;POINT TO NEXT TEST 
6 PC ,GETTST ;GET TEST ADDR 5” INFO 
001114 177777 TEST, END OF TABLE ? 
15$ ;YES- JUMP 
003460 af SCHECK MODE 


001214 
;BAD- TRY NEXT TEST 
002754 : ;OK GO DO NEXT TEST 


001124 : PASS NUMBER +1 
003634 REPORT PASS COMPLETE 
000400 001116 : + 44 END OF PASS HALT ? 


;NO- JUMP 
001120 SWITCH CONTROL ? 
7$ [NO JUMP 
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START POINT FOR 


31800 003260 
31900 003262 
32000 


32100 003266 


32200 003272 
32300 003276 
32400 


33200 003332 
33300 
33400 003334 


7300 003564 
37400 003572 


PROGRAM 


000000 
000137 
105037 
004737 
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002450 
001116 


003356 
002754 


001214 
001116 
001116 


001212 


000022 
001214 


001214 


001134 


034672 
034673 
001134 


034661 
034662 


HALT 
17$: JMP 


19$: 
22$: 


VALID: 


1$: 
GETTST: 
C 


ASS 
GET NEW TEST NO. ETC. 
SET TEST 0 
START TEST 


sO 
PC ,GETTST 
RSEQ 


WORK , SEQ 
#TSTTBL,SEQ 
@SEQ, TEST 
#2,SEQ 
@SEQ,TSTTYP 
#2,SEQ ;POINT TO PASS NO. 


TEST PASS ROUTINE 
CLR TEMP CONVERT TEST NO TO ASCII 
MOVB 0,T 


-BIOCT 
EBUF +4 ,MSG03+23. 
EBUF +5 ,MSG03+24. 


:PUT IN MSGO3 
: CONVERT PASS NO. 


PC,,BIOC 
EBUF +3 ,MSGO03+14. 


;PUT IN MSGO3 
EBUF +4 ,MSG03+15. 


SEQ 0031 





“am 
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START POINT FOR PROGRAM SEQ 0032 


37500 003600 113737 020601 034663 MOVB EBUF +5 ,MSG03+16. 

37600 003606 #MSG03 REPORT END OF TEST PASS 
003606 012705 MOV #MSG03.R5 ;BUILD sEND CALL USING MESSAGE ADDRESS 
003612 005037 MODE 


003616 PC,SEND NOW SEND THE MESSAGE 
37700 003622 #MSGO03 
003622 012705 MO #MSG03,R5 ;GET MESSAGE ADDRESS 
eames ; SEND MESSAGE 


003626 
37800 003632 
37900 


ae CO en a ore ee 
SENDALL #MSGO1 
MOV #MSGO01 ;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 


012705 MOV ;GET MESSAGE ADDRESS 
004737 04 SEND MESSAGE 

013737 001134 ; CONVERT PASS NO TO ASCII 
012705 4 

004737 

105037 CLRB EBUF +6 ;PRINT PASS NO. 


BUF 
012705 020574 MOV #EBUF ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 
031700 i NOW SEND THE MESSAGE 


012705 020574 MOV ;GET MESSAGE ADDRESS 
003722 004737 020304 JS SEND MESSAGE 
39100 003726 SG75 SEND CRLF 
003726 012705 037154 MO ;BUILD SEND CALL USING MESSAGE ADDRESS 
003732 001174 DE 
003736 031700 NOW SEND THE MESSAGE 
39200 003742 75 
003742 


012705 037154 MOV ;GET MESSAGE ADDRESS 
003746 004737 020304 SEND MESSAGE 
aby 003752 000207 PC ; RE TURN 


012737 004002 000004 SWRTST: MOV 2$, TRAP 
000340 000006 MOV #PRI7, TRAP4+2 
175126 001116 1$: aSWR,SO 


BR 
000176 001122 2$: #176,SWR ; TRAPPED TO 4 SET UP FOR 
175106 001116 aSWR ,SO SOFTWARE SWITCH REG. 


000006 000004 3$: #6, TRAP4 RESET TRAP CATCHER 
000000 000006 Sp RAPS 





a van) 
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START POINT FOR PROGRAM 


023727 
001001 
000000 
017737 
032737 
001404 
052737 
000402 
005037 
000207 


012737 
005005 
012705 
004737 
012705 
004737 
105705 
001002 
112705 
000207 
113705 


110537 
012705 
004737 
005037 


012737 
000002 


001122 
175046 
001000 
100000 
001176 


004146 
042212 
020304 
023420 
033614 
000116 


177562 
017234 
177564 

177566 


037154 
020304 


001146 
000101 


000176 


001116 
001116 


001176 


000060 


177560 


SWR ,#000176 
3$ 


@SWR,SO 
#B1T9,S0 


1$ 
#81715 ,PMODE 
2s 


: ROUTINE TO’ HANDLE MODE CONF 
ANYWAY: e 


“% »MSTALL 
2$ 

#°N,RS 

PC 

4177562 ,R5 
#TTYIN, 2460 
4177564 

4$ 

R5 ,@4177566 
#MSG75 
#MSG75 .R5 
PC,CSEND 


LOOPO 
#101,04177560 


SEQ 0033 


sREAL SWS ? 

YES SKIP HALT 
;ALLOW OPERATOR TO CHANGE 176 
;READ SWS TO WORK COPY 


:PMT MODE ? 
:NO 
sYES- SET THE FLAG 


SET INTERRUPT TO 3$ 
;RUN ANYWAY ? MSG 


;GET MESSAGE ADDRESS 


SEND MESSAGE 


;SETUP STALL TIME CONSTANT 


;ASSUME NO OF NO ANS 


;GET ANS 
RESTORE TTY INTR HANDLER 
3ECHO THE CHAR 


;GET MESSAGE ADDRESS 
SEND MESSAGE 
SABORT THE TIMEOUT 
ENABLE CONSOLE 





am 
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START POINT FOR PROGRAM 


aa 


; THIS ROUTINE WILL SCAN ALL LINES FOR ACTIVE TERMINALS 
; BE REQUESTING AN ANSWERBACK FROM AiL LINES. THE SELECT 
; BIT WILL BE SET ACCORDINGLY IN THE DZLINE TABLE. 


45300 
45400 004216 012737 001140 SCAN: MOV # LINK TO RECV ROUTINE 
45500 004224 ;PROMPT TERMINALS 
004224 012705 MOV rate ;BUILD SEND CALL USING MESSAGE ADDRESS 


004234 NOW SEND THE MESSAGE 
45600 004240 i 000. WAIT A WHIL 
004240 # 


LE 
;SETUP STALL TIME CONSTANT 
PC -MSTALL 


WO 
001152 : WORK ,NUML IN ALL LINES DONE ? 

4$ YES- EXIT 

WORK ,RO 

RO ;X2 FOR WORD OFFSET 
DZLINE (RO) BIT 15 SHOULD BE SET 


JO RESPONSE- DESELECT 
a DZLINE (RO). 
CHECK NEXT LINE 


‘s 
#B1T7,DZLINE (RO) SET LINE INACTIVE 
Shay E(RO) 


004244 
45700 004250 


CHECK NEXT LINE 


001152 

ONL INE ,RO 

RO 

DZLINE (RO) 

7$ 

UUT 

ONL INE 

6$ 

PC 

: PC ,KBOUT ;REMOVE CHAR FROM BUFFER 

48700 004414 020626 #B1T15,DZLINE (RO) SET RESPONDED BIT 
48800 004422 000207 PC 
48900 
49000 





CZLAIAO LAOO DMT PROG MACRO M1110 20-APR-78 04:21 PAGE 11 
START POINT FOR PROGRAM 


100 
200 -SBTTL TEST SCQUENCE TABLE 
300 ;ONE WORD OF TEST ADDRESS 
400 [ONE WORD OF TEST DESCRIPTION DATA 
: 7 _ TEST MANUAL INTERVENTION 
B1T4:0 TEST NUMBER 
“ONE WORD OF PASS COUNT 


TSTTBL: 
DATA PATHS TEST 


ALL PRINTABLE CHARACTERS TEST 
;NON-PRINTABLE CHARACTERS TEST 
PRINTHEAD DOT MATRIX TEST 
;HORIZONTAL PITCH TEST 

SPACE - BACKSPACE TEST 

SET MARGINS TEST 

sHORIZONTAL TABS TEST 
;MULTIPLE LINE FEED TEST 
;HORIZONTAL MOTION TEST 
;BUFFER OVERRUN TEST 

; VERTICAL PITCH TEST 

;BELL TEST 

LIFE TEST 


DYNAMIC EXERCISOR 


;BAUD RATE TEST 


000217 





a0 
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TEST SEQUENCE TABLE 


000000 
012260 
000220 


000000 
014412 
000221 


000000 
015214 
000222 


000000 
177777 
000000 


PAGE 11-1 


000000 


000000 


;DMT KEYBOARD ECHO TEST 


DMT CHARACTER CODE EC''0 TEST 


3;DMT PITCH SETUP TEST 


TABLE FLAG 
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TESTS SEQ 0037 


rts: TESTS 


A’ TEST’ OF THE’ VARIOUS’ BAUD’ RATES. 
MANUAL INTERVENTION IS REQUIRED 
Ti?:° SENDALL #MSG27, °°” eC Ce eeereeeeeeeeeeeaeeeeeeeeeeeeeeeeeeaeeeee 
012705 035546 MOV #MSG27 


“am 


012705 
005037 
004737 


012705 
012705 
005037 
004737 
012702 
004737 
012705 
005037 
004737 


012705 
005037 
004737 


012705 
5037 


033442 
037463 


#TO3TBL .R2 

PC ,ANVENT 
#™SG88 
#MSG88 ,R5 
MODE 


PC,SEND 
#MSG32 
#MSG32,R5 


MODE 

PC,SEND 

#MSG36 
a oR5 


MOD 
PC,SEND 


PC,5$ 
#TO3TB2,R2 
PC ,ANVENT 
#MSG88 
#MSG88 ,R5 
MODE 
PC,SEND 
#MSG35 
#MSG35 ,R5 
MODE 


PC,SEND 
#MSG36 
#M 


20$ 

oe IE AO 
DZLINE (RO) 
61$ 

ONL INE 

6$ 


;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 

;SETUP ADDRESS OF 1ST PART OF MESSAGE 

[SETUP ADDRESS OF ‘HIT RETURN WHEN DONE'’ MESSAGE 
[SETUP TABLE ADDRESS 

[GO THRU ALL TABLE ENTRIES 

;PRINTED AT MSG 

[BUILD SEND CALL USING MESSAGE ADDRESS 


sNOW SEND THE MESSAGE 

;BUILD SEND CALL USING MESSAGE ADDRESS 
sNOW SEND THE MESSAGE 

;BAUD 

;BUILD SEND CALL USING MESSAGE ADDRESS 
sNOW SEND THE anes 


‘BUILD SEND CALL USING MESSAGE ADDRESS 
;NOW SEND THE MESSAGE 
“BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 
“BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
GET ANSWER BACK 


INIT LINE 0 
SHOULD BE MESSAGE 
DO ALL LINES 


71S LINE SELECTED / 
3NO TRY AGAIN 
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TESTS 


16400 005372 


012737 
012705 
112737 
113737 
004737 
004737 


012705 
004737 
Beene 
001004 
005237 
000137 
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035201 
020346 


62 
010070 000007 
031561 


001162 


173630 


PAGE 12-1 


COUNT 
#TSOBUF ,WORK1 
ro gNOTYET 


HOOK. 
mcs, ONL INE 
#MSG05 .R5S 
#10,MODE+1 
ONL INE ,MODE 


#2000. ,R5 
PC ,MSTALL 
NOTYET 

7$ 
ONL INE 

$ 


6 
#MSG04 ,-(SP) 
PC ,,ERRORT 


#MSG15 ,-(SP) 
PC,ERRORT 


ONL INE 
6$ 


#177600 ,R5 
K1 


WORK 1 

COUNT AP 
RECERR+1 (RO) 
RECERR(RO) 


#MSG15 ,-(SP) 
PC ,ERRORT 


13$ 
#MSG148 ,~(SP) 
PC ,ERRORT 


ONL INE 
6$ 
PC 


; INPUT CHAR COUNT =0 
;BORROW A BUFFER AREA 
GETS CLEARED WHENE DONE 
;LINK TO RECV a ee 
SESCAPE SEQ TO TERM 
; MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
; SELECTED LINE NO. 


;ALLOW 2 SEC FOR ANSWERBACK 


SETUP STALL TIME CONSTANT 


;SHOULD BE CLR IF MSG RECVD 
;GO REPORT ERROR 
;DO NEXT LINE 


NO RESPONSE ! 


ERROR MESSAGE ADDRESS 
;TO ERROR ROUTINE 

IF BIT15 IS SET 

3;DO NEXT LINE 


7CLEAR PARITY BIT 
SAVE IN BUFFER 
BUMP CHAR COUNT 
;BUMP BUFFER POINTER 
;LOOKING FOR 7 CHARS 
:GO COMPARE TO SHOULDBE 
ERROR SET ? 


RESET THE ERROR FLAGS 
ERROR MSG ADDRESS 

;TO ERROR ROUTINE 

71F BIT15-IS SET 


;WAIT FOR MORE 
;TURN OFF FOR NOW 
SRESET BUFFER POINTER 
COMPARE ALL 5 CHARS 


TEST NEXT LINE 





AA 
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005444 
18100 005450 
18200 
18300 


012705 
005037 
004737 


012705 


00002 
031700 


001174 
001175 


TO3TBL: MSG32 3110 , ODD PARITY , 7 BIT 
11320 


0 
TO3TB2: SS 3300 BAUD , ODD PARITY , 7 BIT 
000000 END OF TABLE 


“THIS 18 THE TEST OF DATA PATHS Ww H 
‘THE *U*U PATTERN IS ALTERNATING 17 AND ONE 
ee ae *SENDALL #MSG42° "°° "°° °° SANOUNCE’ TEST eeenvnvnnne 
MOV #MSG42 RS ‘BUILD SEND CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
#MSG43 ,44 
#MSG43,R5 


#4 ,MODE 
#20 ,MODE +1 
PC,SEND 
PC 





“am 
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eee e eevre S TEST’ Cee eeeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeee 


[PRINTABLE CHARACTERS TEST 
‘THIS TEST PRINTS FOUR OF EACH PRINTABLE CHARACTER. 
SASCII CODES 041 THRU 176. 


COCO OEHOOEHOEHEOHEHEHHHEHOHOHEHHOHETEHOOHHEEHHOHHOHHHEHEEEHHHHHHEHEHHOHEHHHHHEHEEEEEE 


TESTO1: SENDALL #MSG81 ;SEND TEST ID 
gers 037231 MOV an RS ;BUILD SEND CALL USING MESSAGE ADDRESS 


MOD 

PC,SEND NOW SEND THE MESSAGE 
001160 WIDTH, WORK 

COUNT 


001160 : — ;WORK = WIDTH / 6 
gar 
001164 : #41 ,WORK2 : INIT ASCII CODES 


001160 COUNT , WORK 
000177 : saan DO WHILE CHAR < 177 


3DO0 WHILE WORK > 0 


: SEND CHAR 4 TIMES 
013705 MOV ;GET CHAR TO R5 
012737 000004 001174 DE 3GET REPEAT COUNT 
112737 000020 001175 ;SET REPEAT MODE 
004737 032226 JSR SCALL CHAR OUTPUT ROUTINE 
SEND 2 SPACES 
012705 MO a GET CHAR TO R5 
000002 001174 GET REPEAT COUNT 
001175 ;SET REPEAT MODE 
CALL CHAR OUTPUT ROUTINE 


NEXT ASCII CODE 


3$ 
f #MSG75 ; CRLF 
012705 MOV «hal ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 MOD 
004737 PC,SEND NOW SEND THE MESSAGE 
Abt of 010070 001160 oo RESTORE WIDTH/6 


3 
: #MSG77 SKIP 3 LINES 
012705 037157 MOV #MSG77,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 
031700 PC.SEND NOW SEND THE MESSAGE 
apie 005676 PC 


21600 
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eoeenvene eoenvee rer eee ee eee ee re 


“THE NON PRINTING CHARACTER TEST. 
PRINTING CHARS ARE SENT TO THE LAOO. THE RESULT SHOULD BE 


CCCHCC COCO HHHEEHEHEHEHEEEHEHHEEHEEHEHHEHHEHHEHEEHHee 


:” SENDALL #MSG44 
012705 MOV WMSG44, URS :BUILD SEND CALL USING MESSAGE ADDRESS 


are NOW SEND THE MESSAGE 
012705 MOV #MSG45 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 


MODE 
031700 “5 NOW SEND THE MESSAGE 


005037 
004737 


CROC HEOOOEOEEEHEEEEEEEEHEEEHOHHEEHEHHEEEHEHEHEEHEEOHEEHEEHEHEEHEHHEHEHEHEHHHHEEHHEEEE 


;DOT MATRIX TEST 

THIS TEST PRINTS FIVE CHARACTERS ‘'ZH*#$'' IN LINE. 

ZA LINE OF Z'S AND SPACES IS PRINTED, THEN THIS 

LINE IS OVERPRINTED WITH A LINE OF H'S AND SPACES, 
*'S AND SPACES , AND #°S AND SPACES. THIS OVERPRINT 

ZCREATES TEN BOXES THAT SHOULD BE ALL BLACK. 


CHSC EEEHEHEHOEEEEHEHEEOHEEHOEHEEHEHEEEHEHEAOHHEHEEEEHEEHEHEHHHEHHEHEEHEHEHEHEHHHEHHHHEHEEHEE 


TESTO3: SENDALL #MSG83 SEND TEST ID 
012705 037275 MOV — R ;BUILD SEND CALL USING MESSAGE ADDRESS 


wip 8 at at MESSAGE 
012705 MOV ate ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 
005756 004737 JS P NOW SEND THE MESSAGE 
24400 005762 SEND THE CHARS 
005762 012705 MOV #MSG84 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005766 MODE 
005772 PC, SEND NOW SEND THE MESSAGE 
24500 005776 : #MSG85 , 44 SMAKE 4 LINES OF 10 BOXES 
005776 MO #MSG85 ,R5 


#4 ,MODE 
#20 ,MODE+1 
PC, SEND 
: #MSG77 :SKIP 3 LINES 
037157 MOV #MSG77,R5 *BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 
031700 + Stes sNOW SEND THE MESSAGE 





CZLAIAO LAOO DMT PROG 
TESTS 


012705 
005037 
004737 


012705 


017705 
005037 
004737 
012705 
004737 


012705 


012705 
005037 


017705 
005037 
004737 
012705 


012705 
005037 


012705 
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037704 


se 
001174 
031700 


000136 
001174 
031700 


037537 


037565 
001174 
031700 


eeeeveeeee? 


HORIZONTAL’ PI>CH’ TEST 


SETUP FOR THIS TEST IS DOWN LINE LOADED FROM THE PROGRAM. 
SA MESSAGE WILL BE PRINTED ow tt THE CURRENT PITCH, 


:FOLLOWED BY THREE LINES OF 


SPITCHES TESTED : 10, 12, 13.2, 


-Z AT THE CURRENT PITCH. 
16.5 CPI. ALL AT 6 LPI. 


CREACLS ERE SES SCO COC ECE CCC CSS PE OCS SC OCE VOCS Cee Cees rr ame 


COCO OHEEOOEEOOHEEHEF OEE EHO HEEEHOHEHEHEHEHOHEEHHEEHEHEHEHHHEHHHEHHEEHHEHEHHEEEE 


TESTO4: SENDALL pate g be 4 
MOV G109,R5 
CLR 


MODE 
PC,SEND 


JSR 
SENDALL #MSG77 
MOV a al 


#TABLHF ,111B 
#TABLH,T11A 


aT118 
@711B,R5 
MODE 
PC, SEND 
#250 
#250.R5 
PC,MSTALL 
#™SG75 
#MSG75,R5 
MODE 
PC, SEND 
#SG88 
#™SG88,R5 
MODE 
PC, SEND 
avila 
@T11A.R5 
MODE 
PC, SEND 
#MSG93 
#SG93,R5 
MODE 
PC, SEND 
#MSG96 
#™SG96,R5 
MODE 
PC, SEND 
#MSG98 
#SG98,R5 
MODE 
PC, SEND 


;SEND TEST ID 
;BUILD SEND CALL USING MESSAGE 


zNOW SEND THE MESSAGE 
:BUILD SEND CALL USING MESSAGE 
:NOW SEND THE MESSAGE 


3;DO WHILE WORK > 0 


;GET TABLE OFFSET 


:POINTER TO FORMAT CMD 
;POINTER TO ID MSG 


SETUP HORIZ PITCH 
;BUILD SEND CALL USING MESSAGE 


NOW SEND THE MESSAGE 


SETUP STALL TIME CONSTANT 


SEND CRLF 
;BUILD SEND CALL USING MESSAGE 


NOW SEND THE MESSAGE 


ID MESSAGE 


;BUILD sind CALL USING MESSAGE 
NOW SEND THE MESSAGE 
;BUILD SEND CALL USING MESSAGE 
;NOW SEND THE MESSAGE 
;BUILD SEND CALL USING MESSAGE 
;NOW SEND THE MESSAGE 
;BUILD SEND CALL USING MESSAGE 
;NOW SEND THE MESSAGE 
;BUILD SEND CALL USING MESSAGE 
:NOW SEND THE MESSAGE 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 
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SENDALL #MSG107 
MOV ee ;BUILD SEND CALL USING MESSAGE ADDRESS 
PC, SEND NOW SEND THE MESSAGE 
000003 aie 
WORK2 
BR $ 
001160 : _ GET NEXT PITCH 
: #MSG77 
037157 MO a ;BUILD SEND CALL USING MESSAGE ADDRESS 


001174 
031700 PC, SEND zNOW SEND THE MESSAGE 
PC PERI T cee 


012705 


WOR 000000 
037525 037520 TABLH: .WORD MSG92,MSG91,MSG90 ,.MSG89 


037577 037604 TABLHF: .WORD MSG99,MSG100,MSG101,MSG108 
037677 
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; SPAC TEST 

: THIS TEST PRINTS A LINE OF ALTERNATING SLASHES AND APACES. 

; THEN BACKSPACES THROUGH THE LINE OVERPRINTING THE '/* S 

WITH H '\"S, THE RESULTING LINE SHOULD BE A LINE OF ALTERNATING 
ix! S AND SPACES. TWO LINES ARE PRINTED PER PASS. 


CCCP OHOOHEHEEOHEOEEEEEHOEHEEEHOHEOHOHEEHHHHHHEHEHHEHHOHHHEEHEEHHEHEHEHHOHHEHEEEE 


TESTOS: SENDALL #MSG78 SEND TEST ID 
012705 MOV = R [BUILD SEND CALL USING MESSAGE ADDRESS 


sNOW SEND THE MESSAGE 
010070 #2, COUN SU FOR 2 LINES 
COUNT 


;DO UNTIL COUNT =0 
001160 


006237 WORK 
162737 000002 001160 UB #2 ,WORK sMAKE SHURE WE'RE NOT AT MARGIN 


3SEND ''/ 
012705 
001174 
001175 #20 ,MODE+1 
PC, SEND 


001160 : WIDTH, WORK 
WORK RESET COLM COUNT 
SEND ‘BS BS \ BS" 


001174 
001175 #20,MODE+1 
PC, SEND 
#MSG75 ; CRLF 
= ;BUILD SEND CALL USING MESSAGE ADDRESS 


E 
PC, SEND NOW SEND THE MESSAGE 
32000 006564 COUNT 
32100 006570 BR 2$ 
32200 006572 ; #MSG77 SKIP 3 LINES 
006572 012705 037157 MOV #MSG77,R5 BUILD SEND CALL USING MESSAGE ADDRESS 
006576 git 2h 001174 


MODE 
006602 031700 PC ,SEND NOW SEND THE MESSAGE 
rs 006606 000207 PC ENT .u 


32500 
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012705 037770 


0075 000003 


007516 
007516 


007516 


37400 007046 012737 007514 


THIS TEST WILL SET 4 PAIRS OF L & R MARGINS 
THEN WILL PRINT A LINE OF = SIGNS THAT SHOULD 
BE WITHIN THOSE MARGINS. ALSO A MESSAGE WILL BE 
es elamaee AN ERROR IF IT'S NOT AT THE LH 


MARGIN. 
A REFERENCE LINE WILL BE PRINTED SHOWING THE 
MARGIN LIMITS BEING SET UP. 

ALL HORIZ PITCH SETTINGS WILL BE TESTED. 


TESTO6: —_! pong ah. ;SEND TEST ID 
ate 11,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
PC, SEND zNOW SEND THE MESSAGE 
WORK 


WORK 1 
Ww ;D0 4 PITCH SETTINGS 
"as 3I1F DONE GOTO 30 


30$ 
Ww 7*2 FOR WORD OFFSET 
a ae [PITCH MSG TABLE 

wl 


WW 
aw SETUP H PITCH 
aw3.R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 


MODE 
one NOW SEND THE MESSAGE 
;DO 5 MARGINS TESTS 


We 

We 44 

5$ 

20$ 
#T12F IX 
#T12F IX,R5 
MODE 
PC,SEND 
W2 WS 


e 


W3,R1 
#TBL12A,R1 
W2 ,W3 
#TBL12B,W3 
aW3 , WORK 
W2 ,W5 
#TBL12C, " 
aW3 ,WORK1 
WORK1 ,WIDTH 
3$ 

#5 We 


RESET MARGINS 
;BUILD SEND CALL USING MESSAGE ADDRESS 


:NOW SEND THE MESSAGE 


;POINT TO SETUP ADDR 


;POINT TO LH MARGIN 
;GET LH MARGIN 


;POINT TO RH MARGIN 
3GET RH MARGIN 
WITHIN RANGE OF PAPER ? 


NO DO NEXT PITCH GROUP 
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37500 007054 000137 007422 
37600 007060 113737 001160 001164 3$: 
37700 007066 005337 001164 DEC WOR 
37800 007072 SG75 7SEND CRL 
007072 012705 037154 MOV “mM ° BUILD SEND CALL USING MESSAGE ADDRESS 
005037 001174 MODE 
004737 031700 JS PC, SEND NOW SEND THE teeertnes 


:PRINT PERIODS.. 
012705 037073 
113737 001174 
112737 000020 001175 
004737 


eV PRINT A ‘V"' 
012705 MOV :GET CHAR TO R5 
MODE D MODE 


CALL CHAR OUTPUT ROUTINE 
001164 
001164 3; =RH-LH 
WORK2 


‘ PRINT PERIODS 

012705 MOV #*.,R5 ;GET CHAR TO R5 
013737 001174 ;GET REPEAT COUNT 
112737 0000. 001175 ;SET REPEAT MODE 
004737 JS :CALL_CHAR OUTPUT ROUTINE 

av [PRINT A ‘'V"' 
012705 000126 MOV GET CHAR TO R5 

MOD 7STD MODE 

CALL CHAR OUTPUT ROUTINE 
001164 


163737 001164 
. PRINT MORE PERIODS 
012705 00005 MOV . GET CHAR TO R5 
001174 ;GET REPEAT COUNT 
001175 ;SET REPEAT MODE 
CALL CHAR OUTPUT ROUTINE 


011137 
K ; SETUP MARGINS 
013705 MOV te ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 
004737 NOW SEND THE MESSAGE 
004737 JSR Pes 1 ;WAIT FOR CATCHUP 


9100 007306 
39200 007312 zSEND CRLF 
007312 012705 MOV ;BUILD SEND CALL USING MESSAGE ADDRESS 


007316 005037 
007322 004737 JS PC, SEND NOW SEND THE MESSAGE 
39300 007326 oH25. SEND ‘=" 25 TIMES 
007326 012705 MO #MSG115,R5 
112737 #25. ,MODE 
112737 00002 #20 MODE +1 
004737 JSR PC, SEND 
wmecit 6 AND ERROR IF MSG 
gies 040045 MOV $6116,R5 :BUILD SEND CALL USING MESSAGE ADDRESS 


00 MODE 
004737 031700 JS PC,SEND NOW SEND THE MESSAGE 
SG7> SEND CRLF 
012705 037154 MOV #MSG75 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 001174 MODE 





ioe LAOO DMT PROG MACRO M1110 20-APR-78 04:21 


007376 004737 
39600 007402 

007402 012705 

007406 004737 
39700 007412 


PC, SEND 
#300 
#300,R5 
PC ,MSTALL 
W2 


2$ 
wl 


1$ 

PC ,RESETO 
#MSG77 
#MSG77 ,R5 


MODE 
PC,SEND 
PC 


NOW SEND THE MESSAGE 

SETUP STALL TIME CONSTANT 

NEXT MARGIN PAIR 

NEXT H PITCH 

RESET THE TERMINAL 

SKIP 3 LINES 

;BUILD SEND CALL USING MESSAGE ADDRESS 
one SEND THE MESSAGE 


041255 TBL12A: . MSG180,MSG181 ,.MSG182 ,MSG183 ,MSG184 


TBL12B: 2,26.,52.,78.,100. 
TBL12C: . 26.,50.,76.,102.,124. 
TIQFIM: . 33,133,61,73,61,63.62,163,0 


41100 

41200 007512 
41300 007514 
41400 007516 
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TEST. 
S PRINTED, MADE UP OF PERIODS AND v'S 
ORRE SPOND ING TO THE POSITION OF 
S. THREE LINES OF TABS AND I'S ARE PRINTED, WHERE 
THE I°S SHOULD L UNDER THE V'S. 
:THIS IS REPEATED FOR TAB SETTINGS "oF 4,8,9,16,18,32, AND 
764 CHARACTER SPACES. 


CHOCO EHEHEEHEHEHEHEHEEOHOHEEHEEHEHEEHEEHHEHEHEEHHHEHEEHEHHEHEHEH HH 


TESTO7: SENDALL #MSG60 ;SEND TEST ID 
012705 037031 MOV #™SG60,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 MODE 
004737 PC, SEND :NOW SEND THE MESSAGE 
012737 001164 1$: #TABL13,WORK2 
013737 001162 2$: MOV WIDTH, WORK1 

#MSG61 sESC-2 RESETS TABS 

012705 MOV #MSG61 RS ‘BUILD SEND CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
@WORK2 , TAB 
WORK2 
@WORK2 
013701 010066 MOV TAB,R1 
#MSG75 SEND CRLF 
012705 MOV A late ;BUILD SEND CALL USING MESSAGE ADDRESS 


;NOW SEND THE MESSAGE 
001162 : is ;SU TAB COUNT PER LINE 


PRINT TAB -1 PERIODS 
° ;PRINT PERIODS 
012705 0000 MOV #'. GET CHAR TO R5 
010137 GET REPEAT COUNT 
112737 000020 001175 #20 MODE +1 ;SET REPEAT MODE 
004737 032226 JS PC ,CHROUT [CALL CHAR OUTPUT ROUTINE 
: #5663 SET TAB STOP 
012705 037075 MOV #MSG63,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 001174 MODE 
004737 031700 JS Faas amit A Ue MESSAGE 
012705 MOV #'V, GET CHAR TO R5 
005037 MODE [STD MODE 
004737 CALL CHAR OUTPUT ROUTINE 
105277 
013701 
44700 007716 000741 
44800 
44900 007720 012737 000003 010070 
117737 171232 010066 
001430 


45200 007736 SG75 
007736 012705 037154 MOV #MSG75 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
007742 001174 MODE 
007746 031700 JSR PC, SEND NOW SEND THE MESSAGE 
45300 007752 : #MSG65 ISSUE A_T 
007752 012705 037102 MOV #MSG65 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
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007756 005037 001174 MODE 
007762 004737 031700 JS NOW SEND THE MESSAGE 
45400 007766 "I PRINT AN ‘'I"' 
007766 012705 000111 MOV 4 GET CHAR TO R5 
001174 MODE STD MODE 
032226 CALL CHAR OUTPUT ROUTINE 
010066 TAB 


010070 


G 
037157 MOV #MSG77,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 

031700 PC, SEND NOW SEND THE MESSAGE 

001164 WORK2 

001164 010066 me ane 


PC EXIT 


4 
8. 
9. 
16. 
18. 
32. 
64. 
0 

2 


47400 010070 
47500 
47600 
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SEQ 0050 


CH CCC EOE OHHOEHEHHOEHOEEHEHEHEHEHEHEHEEHEHEHEHEEHEEEE 


EED TEST 
THIS TEST WILL PRINT A REFERENCE LINE OF DASHES 
THEN SKIP N LINES AND PRINT THE NUMBER = LINES 
SKIPPED, ALONG WITH SOME DASHES FOR VISUA 
REFERENCE. EACH SKIP COUNT N IS DONE TWICE FOR N 
= 170 7. AT 6 LINES PER INCH. 


CHOCO EOHEOHOHOEOEHEEEHEHEHOEHOHEOHEHHEEHEEHEHEHEHHEHEHHEHHEHHHHHEHHHHHEEE 


TEST10: SENDALL pee dt? SEND TEST ID 
012705 040141 MOV rate G123,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
#MSG77 SKIP 3 LINES 
012705 MOV #MSG77 ,R5 BUILD SEND CALL USING MESSAGE ADDRESS 
005037 MODE 
004737 NOW SEND THE MESSAGE 
012737 000001 1 


012737 
Gle SEND LINE OF DASHES 
012705 MOV ° ;BUILD SEND CALL USING MESSAGE ADDRESS 
5037 MODE 


NOW SEND THE ME SSAGE 
ALL DONE ? 
;YES- JUMP 


SEND LINE FEEDS 


013737 


012705 
113737 
112737 
004737 


3 
013700 
062700 7;GET NUMERIC CHARACTER 
111037 
SEND 6 DASHES 


012705 MOV n-. “GET CHAR TO RS 
000006 001174 ‘GET REPEAT COUNT 
000020 001175 #20,MODE+1 ‘SET REPEAT MODE 
010250 032226 JS PC CHROUT *CALL CHAR OUTPUT ROUTINE 
50100 010254 ‘6 “AND A ZERO 
010254 012705 000060 MOV #'0,R5 ‘GET CHAR TO RS 
010260 005037 001174 MODE :STD MODE 
010264 004737 032226 JS PC, CHROUT *CALL CHAR OUTPUT ROUTINE 
50200 010270 WORK 3 E 


013705 001166 
010274 001174 MODE D MODE 
032226 JSR P CALL CHAR OUTPUT ROUTINE 
SG66 NOW RETURN CHAR 
012705 MOV tee BUILD SEND CALL USING MESSAGE ADDRESS 


005037 

004737 NOW SEND THE MESSAGE 
SKIP A LINE 

012705 

113737 

112737 0000 #20, MODE +1 

004737 PC , SEND 





CZLAIAO LAOO DMT PROG MACRO M1110 20-APR=-78 04:21 PAGE 19-1 
TESTS SEQ 0051 


50500 010344 SENDC2 #'=,46 SEND 6 DASHES 
010344 012705 000055 MOV #'-, noe SGET CHAR TO R5 
010350 000006 001174 #6 ,MODE [GET REPEAT COUNT 
010356 000020 001175 #20, ,MODE+1 :SET REPEAT MODE 


010364 
50600 010370 
010370 


032226 JS C.CHROU SCALL CHAR OUTPUT ROUTINE 


012705 000060 MOV #'0, GET CHAR TO R5 
005037 001174 MOD STD MODE 
004737 032226 uk’ CALL CHAR OUTPUT ROUTINE 


013705 001166 MOV ° ;GET CHAR TO R5 
005037 001174 MODE ;STD MODE 
004 032226 JSR P CALL CHAR OUTPUT ROUTINE 
SG66 SEND CR 
012705 037104 MOV aM . [BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 


005037 

004737 NOW SEND THE MESSAGE 
005237 K 3 CHANGE NO OF LF'S 
004737 JSR . 


BR 
: SENDALL #MSG77 SKIP 3 LINES 
012705 oe its MOV ate hha ;BUILD SEND CALL USING MESSAGE ADDRESS 
0 031700 PC, SEND NOW SEND THE MESSAGE 
51300 010462 PC 
51400 
51500 
51600 
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TESTS SEQ 0052 


ee ne ee eee 


T TEST 
INTED AT “ety COLUMN POSITIONS 
HE LINE IS FULL. CONTROLLED BY THE 
AS DETERMINED” AT STARTUP. 


CPC CHSC eeeeeeeeeeeeseeeeseeeseeeseeeseseeeeeeeeeseseeeseeeaeeeeeeeseeaeeveeveene 


52400 
52500 010464 TEST11: SENDALL #MSG28 SEND TEST ID 
010464 pers aa oee MOV #MSG28 ,R5 s;BUILD SEND CALL USING MESSAGE ADDRESS 


010470 MODE 
010474 00473 PC ,SEND NOW SEND THE MESSAGE 
52600 010500 #COLTBL ,RS “POINTER TO TABLE OF COLUMNS 
52700 010504 000001 001160 #1 , WORK PRESENT POSITION 
52800 010512 : (R3)+,WORK1 ;DESTINATION POSITION 
52900 010516 001510 9 ; 


$ 
001172 ee eWIDTH 


DEST. 
WORK1 , WORK TIF DEST > POS THEN SPACE 
8$ :IF DECT = POS oe PRINT X 
4$ IF DEST < POS THEN 
WORK1 , WORK2 31F DEST < POS-12 DO CR FIRST 
#12 ,WORK2 THEN SPACES 
es AS 


#MSG08 ELSE BACKSPACE 1 
+ eat ;BUILD SEND CALL USING MESSAGE ADDRESS 


PC ,SEND sNOW SEND THE MESSAGE 
— POS = POS-1 


54200 
54300 010610 013737 ¢ WORK 1 , WORK3 ;CALCULATE # OF SPACES 
54400 010616 163737 001160 001166 SUB WORK , WORK 3 SITION 
54500 010624 #40 ,WORK3 
010624 012705 MOV #40,R5 R5 
WORK3 ,MODE GET REPEAT COUNT 
#20 ,MODE +1 ;SET REPEAT MODE 
PC ,CHROUT :CALL CHAR OUTPUT ROUTINE 
aa - WORK POS = DEST 


53000 010520 
53100 010526 
3200 30 


: #™SGO9 SEND RETURN FIRST 
012705 MOV een ne ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 
004737 PC ,SEND NOW SEND THE MESSAGE 
55 010674 012737 001160 #1 , WORK :POS = 1 9 
55100 010702 000712 BR 2s 
55200 
55300 010704 : #'H ;PRINT AN H 
010704 012705 000110 MOV #°H,RS GET CHAR TO R5 
010710 37 MODE STD MODE 
010714 004737 PC ,CHROUT CALL CHAR OUTPUT ROUTINE 
55400 010720 004737 034166 PC QUIET 
55500 010724 WORK sNEW POSITION 
55600 010730 WORK 1 
so 010734 010512 1$ GET NEW DEST COLMN 





“an 


CZLAIAO LAOO DMT PROG MACRO M1110 20-APR=-78 04:21 PAGE 20-1 
TESTS SEQ 0055 


55900 010740 9$: SENDALL #MSG77 ;SKIP_ 3 LINES 
010740 012705 gers MOV #MSG77,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 


MODE 
031700 acetal NOW SEND THE MESSAGE 


COLTBL: BYTE 29,92,40,128,62,102,110,24,22,9,89, 74,126 
105,86,123,119,129, 107,132,91,82,1,101,37,97 
118,88,56,96,76,38,21,81,32,94,60,17,61 
117,25,69,114,65,30,98,90,125,12,120,10,70 
31,14,23,121,6,35,2,13,8,63,67,106,122 
130, 36,75,18,99,16.42,113,5,49,112,33,15 


54,77,39,73,87,95.115,108,41,124,48,19,4 


o 
N 
N 


127,53,103,52,93,85.83,50,43.116,59,57.7 


55,71,68,3,111,100,45,78,11,131,28,84,72 


WHNMN-=— OO 


RYSGASNVRYRUNNRASASN 


58,34,44,47,27,20,79,109,66,64,104,80,26 


leleleleleleoleleleloelelelelelelelele) 
pe i er er Pr Pe Pe Pr Pr PP ee Pe Pr Pe Pe PS 
ed ad et a a ae cl ee a ee ed ed ed ed ee ed ed 


Vn ds BW 
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SEQ 0054 
032 
3 056 000 -BYTE 51,46,0 


-EVEN 
«RADIX 8 
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TESTS SEQ 0055 


CHOCO EHEHEHEHHEHEHEEHOHEHEHEEHEEHEEHEHEHEHEHHEHEHEHHEHEE 


RRUN’ TEST 

THIS TEST WILL FORCE THE TERMINAL TO TRANSMIT AN XOFF 

BY JAMMING A SERIES OF TIME CONSUMEING MOVEMENT CHARS 

INTO THE BUFFER , FOLLOWED BY ENOUGH CHARS TO FILL 

THE BUFFER. WHEN THE TERMINAL HAS EMPTIED THE BUFFER 

TO 10 CHARS IT SHOULD SEND AN XON. 

=” SENDALL #™SG37 

012705 * MOV #MsG37 .R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 
004737 NOW SEND THE MESSAGE 
SG61 ;CLEAR ALL TAB STOPS 
012705 037070 MOV BUILD SEND CALL USING MESSAGE ADDRESS 
005037 001174 MODE 
004737 031700 JS P NOW SEND THE MESSAGE 
SET TABS AT COL 1 & 132 

012705 036157 MOV #MSG38 ,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 

5037 001174 MODE 


PC ,SEND NOW SEND THE MESSAGE 
001166 NUML IN, WORK3 
WORK3 


061166 
STUFF THE BUFFER FULL 
012705 MOV ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 MODE 
004737 NOW SEND THE MESSAGE 
#9000 ;SHOULD GET XOFF FROM 


—e 


° ALL 
012705 MOV ;SETUP STALL TIME CONSTANT 
004737 
CHECK ALL LINES FOR XOFF 


;BIT7 SET ? 
;NO- POSSABLE ERROR 
#B1T7, (RO) 


001160 : oe Am ;OK~ CHECK NEXT LINE 
#DZLINE ,R2 z1S LINE ACTIVE ? 
WORK ,R2 


WWW 


Mn 
NOALO 


7YES- REAL ERROR NO XOFF 

s;NO- CHECK NEXT LINE 
WORK GET REAL LINE NO. 
WORK , ONL INE 


#MSG40,-(SP) :MSG ADDR FOR ERROR REPORT 
020346 PC ,ERRORT ; T ERROR 


001160 WORK 
BR 2s ; INE 
#4000. ;WAIT FOR TERMINALS TO CATCH UP 


012705 007640 MO #4000. .R5 SETUP STALL TIME CONSTANT 
011412 004737 033614 PC .MSTALL 
62000 011416 000240 
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WORK CHECK ALL LINES FOR XON 
#STOP,RO 
WORK ,RO 
RO ,WORK3 


#B1T0, (RO) HAS XON BEEN RECVD ? 
$ ;NO= POSSABLE ERROR 
oe 


—" CHECK NEXT LINE 
#DZLINE ,R2 71S LINE ACTIVE ? 
WORK ,R2 

(R2) TEST BIT 7 


9$ YES ERROR, NO XON 
7$ NO CONTINUE 


: WORK GET REAL LINE NO. 
001204 WORK , ONL INE 
#MSG39,-(SP) 3MSG ADDRESS FOR ERROR REPORT 
;REPORT ERROR NOW 


PC ,ERRORT 
WORK NTER 
«ahs :DESELECT LINE IT'S DEAD. 


#MSGO9 ;SEND <CR> 
— ;BUILD SEND CALL USING MESSAGE ADDRESS 


zNOW SEND THE MESSAGE 
:CLEAR BITS 7 & O IN TABLE 


20$ 
#201, (RO) ;CLEAR THE FLAG BITS 
001160 _ oo ;DO NEXT LINE 
65300 011612 2 #MSG61 :CLEAR ALL TABS 
011612 012705 037070 MOV #MSG61,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
011616 pote th 001174 


MODE 
011622 031700 PC,SEND NOW SEND THE MESSAGE 
65400 011626 000207 PC 
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3883838 


0 
0 
0 
0 
0 
0 
0 
0 


012070 
012074 


012705 


012705 
005037 
004737 


012705 


017705 
005037 
004737 


012705 


012705 
004737 
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037737 


031700 


000250 
033614 
001164 


037463 
001174 
031700 


037513 


037565 
001174 
031700 


000200 
033614 
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;THE HOST. 


TEST IS DOWN LINE LOADED FROM 


INES ARE PRINTED AT EACH OF THE FOLLOWING : 


; 12,8,.6,4,3, AND 2 LINES PER INCH. 


CROCCO HEOHHEEEOEHOOHEEOHHEEHEHEEHEHEHHHEHEHEHEHHEHHEHEHEHHHHEHHEEHHEHEEE 


TEST13: — 
CLR 
JSR 
SENDALL 
MOV 


012134 
012136 
012136 
012134 


000006 


peste. 
110,R5 


MODE 

PC,SEND 

#MSG77 

#MSG77,R5 
DE 


MO 
PC,SEND 
WORK 


#TABLVF ,117B 
#TABLV,T17A 
te g 


PC »MSTALL 
WORK2 .4#6 


3 

#MSG88 
#MSG88 ,R5 
MODE 

PC, SEND 
#MSG89 
te 


MODE 
PC,SEND 
#MSG93 
#MSG93,R5 
MODE 


PC, SEND 
TI7A 


00,R 
PC MSTALL 


;SEND TEST ID 
;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
SKIP 3 LINES 
[BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 


GET TABLE OFFSET 


;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 
;SETUP STALL TIME CONSTANT 


PRINT MESSAGE LINE 
;BUILD SEND CALL USING MESSAGE ADDRESS 


zNOW SEND THE MESSAGE 

;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 

;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 

;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 

;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 

Se TUP STALL TIME CONSTANT 


SEQ 0057 
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0122 
5400 012240 

012240 

012244 
5500 012250 


5600 012254 
5700 012256 


005237 
000727 
062737 
000663 


012705 
37 


012705 
005037 


004737 
012737 
005037 
112737 
012705 
005037 
004737 


012705 
004737 
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001164 
000002 001160 


037157 


037555 
040106 
037616 
037630 037611 


PAGE 23-1 


WORK2 
BR 2$ 
ADD amen 


BR 
SENDALL #MSG77 ;SKIP 3 LINES 
MOV ~? thee ;BUILD SEND CALL USING MESSAGE ADDRESS 


‘oe NOW SEND THE MESSAGE 


000000 
MSG90 ,.MSG97 ,MSG96 ,.MSG95 ,MSG94 ,.MSG118 
MSG104 ,MSG106,MSG103,.MSG117,MSG105 .MSG102 


TEST 
TEST WILL ISSUE 8 BELL CODES, WITH A DELAY 
SEC BETWEEN EACH BELL. 


CH CPCS OEHEHEEHOHOEEHHEEEHEHEHHEHOHOHEHOHEHHEHHEHHEHHHHEHEHHEHHHEHHEHEHEEEEHEOEe 


040112 
001174 
031700 
000010 001160 


001164 
000007 001164 
001164 
001174 
031700 
000100 
033614 
001160 


TEST14: SENDALL #MSG120 ; SEND 
MCV #MSG1 


TEST ID 
20,R5 [BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
38 BELL COUNT 


;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 
SETUP STALL TIME CONSTANT 


SEQ 0058 
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SEQ 0059 


THIS TEST WILL REQUIRE THE OPERATOR TO TYPE ALL 
THE PRINTING KEYS ON THE KEYBOARD. IF ANY KEYS ARE 
NOT SEEN BY THE PROGRAM THEY wu m REQUESTED 
AGAIN, AND A THIRD TIME IF NECESS 

INSTRUCTIONS WILL BE TYPED TO PRESS. THE SHIFTS 
CAPS-LOC, ECS, AND FUNCTION KEYS. 

FIVE SECONDS IS ALLOWED PER KEY . 


012524 


005037 
013737 
006337 
013702 
023737 
103402 
000137 
105762 
100003 
005237 
000755 
012705 
112737 
113737 
004737 
005037 
012705 


113737 


012705 
112737 


014370 
020626 


011610 
033614 
020000 
014140 
014300 


013772 
001110 


0011;70 
000002 
100000 
001170 


001162 
000010 


001160 


001152 


001175 
001174 


001175 
001174 


001140 
014302 


014302 


001162 


001175 


CHOC CSE OHOEEEHOEEEHEOEEHEHEHEHEHEEHEHOEHEHEHEHHEHEHEEHHHEHHEHHHHHEEHHEHHEHEHEE 


TEST20: 
1$: 


ONL INE 
ONL INE , WORK 
WORK 


WORK ,R2 
ONL INE , -NUML IN 


END22 
DZL INE (R2) 
2s 
ONL INE 
$ 


1 
#MSG164 ,ONL INE 
G164,R5 


#6$ , HOOK 
#B1T11,FLAG21 
IET 


5000. 
#5000. ,R5 
PC ,MSTALL 
Yet adimaaals 
#KEYTBL .R3 
R3,AKEYEND 
8$ 
PC,T21E 
ERROR 
3$ 
CHARIN, (R3) 
9$ 
#2,R3 

7$ 
#B1T15,(R3) 
CHARIN, WORK1 
#WORK1 , ONL INE 


#WORK1 ,R5S 
#10,MODE+1 


SET CURRENT LINE TO ZERO 


zsALL DONE ? 


:YES EXIT 

31S THIS LINE SELECTED ? 
YES DO TEST 

[NO GET NEXT LINE NO 


;SEND TEST ID 

SMESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 

SELECTED LINE NO. 


;CLEAR TEST 1. BITS 
PRINT INSTRUCTIONS 
;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


LINKAGE TO RECV ROUTINE 
;RESET LEFTOVER FLAG 


35 SECOND TIMEOUT 
;SETUP STALL TIME CONSTANT 


CHAR IN SET ? 


POINT TO - TABLE 
TALL DONE ? 


NO 
[REPORT ERROR 


COMPARE TO TABLE 


;POINT TO NEXT ENTRY 
;KEEP LOOKING 

SET CHAR IN FLAG 
SECHO THE CHARACTER 


MESSAGE ADDRESS TO R5 
SET SINGLE LINE MODE 
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113737 001204 001174 ONL INE ,MODE SELECTED LINE NO. 
004737 031700 PC, 
032737 0190000 014302 6 ahaha CHECK FOR DONE BIT 


001715 
000137 013010 MP 11$ ELSE TIMEOUT ERROR 
105737 014302 : FLAG21 FIRST TIMEOUT ? 
100045 BPL 5$ YES TRY AGAIN 
#MSG146, ONLINE NO SPACE MSG 
012705 MOV #™SG146,R5 ;MESSAGE ADDRESS TO R5 
112737 #10 ,MODE+1 SET SINGLE LINE MODE 
113737 ONL INE ,MODE ;SELECTED LINE NO. 
004737 PC ,SEND 
#MSG165 , ONL INE ‘ 
705 #MSG165 ,R5 ;MESSAGE ADDRESS TO R5 
10 001175 #10,MODE+1 SET SINGLE LINE MODE 
001174 ge oF peas ;SELECTED LINE NO. 


C,SEND 

#™SG143,ONL INE 

#MSG143,R5 MESSAGE ADDRESS TO R5 
001175 #10 ,MODE+1 SET SINGLE LINE MODE 
001174 ONL INE ,MODE ;SELECTED LINE NO. 

PC, SEND 
014302 #81T7,FLAG21 

ERROR 

17$ :GO TO SECTN-2 

#MSG142,0NL INE sHIT SPACE MSG 

#MSG142,R5 MESSAGE ADDRESS TO R5 
001175 #10,MODE+1 SET SINGLE LINE MODE 
001174 i SELECTED LINE NO. 
014302 hla SET 2ND TRY FLAG 

; SCAN 
RESET TIMEOUT COUNT 
WORK 1 
#177600 ,R5 7CLEAR PARITY BIT 


R5,CHARIN 
014302 I #BIT13,FLAG21 ;SET CHAR IN FLAG 
i tr a 31S CHAR A SPACE ? 


eee ;REMOVE CHAR FROM BUFFER 


soi rte Meet ;SET DONE FLAG 


Sessses 


ee er 
WN 
3 


: 


#MSG75 , ONL INE ; CRLF 

#MSG75 ,R5 s;MESSAGE ADDRESS TO R5 
#10,MODE +1 SET SINGLE LINE MODE 

001204 ONL INE ,MODE ;SELECTED LINE NO. 
031700 PC, SEND 


12705 037154 
12737 000010 
13737 
737 
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13900 013034 012703 014140 #KEYTBL ,R3 
14000 013040 737 010000 014302 #81T12,FLAG21 
14100 013046 001162 WORK 1 

14200 Bienes 014300 : R3,#KEYEND 
14300 013056 13$ 

14400 013060 (R3)+ 

14500 013062 12$ 

14600 013064 503 R WORK 

14700 013070 004000 #81T11,FLAG21 
14800 013076 005303 DEC R3 

14900 013100 114337 ~(R3) ,MSG162 
15000 013104 #MSG162,ONL INE 
013 012705 $G162,R5 


12$ 

1 -FLAG21 

#MSG143,ONL INE 
#MSG143,R5 

#10,.MODE +1 

ONL INE ,MODE 

PC, SEND 

#KEYEND~2 ,R3 

#81T15, (R3) 


FLAG21 
FLAG21 a 


a 
UNSNOFSRGSR 


BG 14$ 
16400 013236 #MSG144,ONLINE 
013236 #MSG144 ,R5 
013242 00001 #10,MODE+1 
013250 35 ONL INE ,MODE 


013256 J PC, SEND 
16500 013262 #MSG145 ,ONL INE 
013262 MO #MSG145, 


#10, MODE +1 
MOVB ONL INE ,MODE 


MOV #561435 -(SP) 
JSR PC ,ERRORT 
HALT 


; L 
014140 : #KEYTBL .R3 
3 100000 : #B1T15, (R3)+ 
014300 + aad YEND 


014302 FLAG21 
WMSG?7, ONL INE 
705 037157 #MSG77_,R5 
737 000010 #10,MODE +1 
737 001204 1 ONL INE ,MODE 


:POINT TO TABLE 


DONE YET ? 
:YES ..GO TO 13$ 
ZCHECK CHAR IN FLAG(BIT 15) 


SET LEFTOVER KEY FLAG 
z;PUT CHAR IN MSG 


AND TYPE IT OUT 

; MESSAGE — TO R5 
;SET SINGLE LINE MODE 

; SELECTED LINE NO. 


;GET NEXT TABLE ENTRY 


KEEP SCANNING FOR LEFTOVERS 

ANY LEFTOVERS ? 

ZNO GO CLEAN THE TABLE ETC. 
NOT SEEN 


MSG 
;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


;RESET SPACE IN FLAG 
;OPERATOR GETS THREE TRIES 


33 STRIKES ay 2 RE OUT !!! 

TRY AGAIN MSG 
‘MESSAGE ADDRESS TO R5 
:SET SINGLE LINE MODE 

SELECTED LINE NO. 


HIT SPACE LAST MSG 


MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
SELECTED LINE NO. 


NEVER RECVD ERROR MSG.... 


;CLEAN THE TABLE FLAGS 


SKIP 3 LINE 

> MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 

SELECTED LINE NO. 
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Beesseness 
so 


Seesssss 
ooo0°o 


ee ee ed od wd 
co 
3 
So 
— 
Vw 
o 


: 
: 


013566 
20100 013572 


20200 013576 
20300 013600 


013600 


013604 
013612 
013620 
20400 013624 
20500 013630 
013630 


004737 
000240 


012737 


012705 
112737 
113737 
004737 


705 


01 
11 
11 


012705 
004737 
105737 
100445 


012705 
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031700 


014304 


165542 


001204 
012264 
00000 


011610 
033614 
014302 


040565 
000010 


001204 
031700 
000002 


001166 


001140 


001166 
014302 


001175 
001174 


001175 
001174 


PC, SEND 


CAPS- 
TBL ,WORK3 


#SHITBL-2,R3 
#CODTBL ,R4 


sEND OF 


#BIT7,FLAG21 
#™SG150, ONLINE 
$G150.R5 


awORK3, 
#10,MODE+1 
ONLINE ,MODE 
PC, SEND 
(R3) , ONLINE 
(R3) .R5 
#10,MODE+1 


PC ,MSTALL 
FLAG21 
21$ 


1 
#MSG146,0NL INE 
$G146,R5 


PC, SEND 
#MSG143,ONL INE 
#MSG143,R5 
#10 ,MODE+1 

ONL INE ,MODE 
PC, SEND 


sEND OF CTLTBL ? 


;SELECT NEXT LINE 
YES EXIT TEST 


SHITBL ? 


CLEAR DONE FLAG 
;SEND INSTRUNTIONS 
;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
SELECTED LINE NO. 


SEND INSTRUCTION #2 
3;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


s;MESSAGE ADDRESS TO R5 
SET SINGLE LINE MODE 


;SELECTED LINE NO. 
WAIT 5 SECONDS 
SETUP STALL TIME CONSTANT 
oe FLAG SET ? 

BRANCH 
‘ERROR DIDN'T RECV CHAR 
:MESSAGE ADDRESS TO R5 


;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


MESSAGE ADDRESS TO R5 


SET SINGLE LINE MODE 


SELECTED LINE NO. 


;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
SELECTED LINE NO. 
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20700 013676 


21 013720 
21400 013722 
21500 013726 
21600 013730 
21700 013734 
21800 


21900 
22000 


22100 
22200 013740 


22700 013764 
22800 013770 
22900 
23000 
23100 
23200 
23300 013772 


113737 

24100 014042 
014042 012705 
014046 112737 
014054 113737 
004737 


014062 
24200 014066 
014066 


24400 014136 

24500 

24600 

24700 014140 
014146 
014154 
014162 

24800 014166 
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014302 


“BAD CHAR’ CODE’ ROUTINE 


001116 
001134 


T21E: 


040716 
040717 
040720 


001175 
001174 


26$: 
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KEYTBL: . 


ERROR 
sO ;HALT ON ERROR ? 


19$ 

7;1F BIT 15 SET 
CHECK FOR CORRECT CODE 
;CALL ERROR ROUTINE 


CHARIN, (R4)+ 
19$ 


;GET CHAR FROM FIFO 
eae 


SET DONE FLAG 
;CLEAR PARITY BIT 


; TURN OFF TIMER 


eevee eve eevee eeeeeeeeeeeeeeeeeeaeeeeeeeaee 


#B1T13,S0 CHECK SW 13 
26$ 


SET UP CONVERTER 
; CONVERT TO ASCII 


;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


PC,SEND 
#MSG148 , ONL INE 
#MSG148,R5 
#10 MODE +1 

ONL INE ,MODE 


PC, SEND 
#MSG149 ,ONL INE 
#MSG149,R5 
#10,MODE+1 

ONL INE ,MODE 

+ Goes 


MESSAGE — TO R5 
7SET SINGLE INE MODE 
SELECTED LINE NO. 


MESSAGE ADDRESS TO R5 
:SET SINGLE LINE MODE 
SELECTED LINE NO. 


54,55,56,57,60,61,62,63,64,73,47 


65,66,67,70,71,75,133,134,135 
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014174 


014202 000135 

24900 014210 ‘ 140,141,142,143,144,145,146,147 
014216 000145 
014224 

25000 014230 ° 150,151,152,153,154,155,156,157 
014236 


014244 
25100 014250 . 160,161,162,163,164,165,166,167 
014256 


014264 000166 
25200 014270 ° 170,171.172,40 
014276 000040 
25300 014300 000000 KEYEND: . 0 
$2505 014302 FLAG21: 0 
25600 014304 040776 CTLTBL: . MSG170,MSG156,MSG157,0 
25700 014312 000000 
25800 014314 041041 SHITBL: . MSG151,MSG152,MSG158 ,MSG159,MSG154 ,.MSG166 
014322 041047 
25900 yk Sd . MSG167 ,MSG168 ,000000 ,MSG169 ,MSG153,000000 
26000 014344 000000 . MSG169,MSG153,000000 


26100 
26200 oie tes CODTBL : 101,102,011,015,020,010,012,177,104,044,104,064,0 


26400 

26500 014370 
26600 014374 
26700 014400 
26800 014404 
26900 014410 
27000 
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27900 

28000 014412 
28100 014416 
28200 014422 


29100 

29200 014460 
014460 
014464 
014472 
014500 

29300 014504 

29400 014512 

29500 014516 


014676 
31400 014702 


012705 


004737 
032737 
001013 


012705 
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001204 
014302 
001204 


001204 


015146 
020626 


001204 


035310 
000010 


014302 


000177 


001160 
001134 


040716 
040717 
040720 


001175 
001174 
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»” CHARACTER’ CABE’ ECHO’ TEST 


@eeeeeeeeeaer eererreeeeeereeeeeveeeeeeeeeeeeeeeeeeeee 


THIS TEST WILL ECHO THE OCTAL CODE OF THE CHARACTER 
RECIEVED, ALONG WITH THE CHARACTER IF IT IS PRINTABLE. 


IF NONPRINTABLE THE 


MNEMONIC WILL BE RETURNED. 


TYPE A DELETE TO EXIT THIS TEST. 


CCPC EOHEEEHEHOEHOHEHEEHEHEEEHEHEEEHEHEEHHHEHEHHEHHHEHHEEE 


TEST21: CLR ONLINE 


CLR FLAG21 
V ee 


ONL INE ,NUML IN 
4$ 

20$ 

DZLINE (RO) 

2s 

ONL INE 

1$ 


#MSG18 , ONL INE 
#MSG18,R5 


PC ,MSTALL 

> itn 
#MSGK3 , ONL INE 
#MSGK3,R5 

#10 ,MODE +1 
ONL INE ,MODE 
PC,SEND 


td 


FLAG21 
CHARIN,#177 
10$ 


#MSG149, ONL INE 
#MSG149,R5 
#10 MODE +1 

ONL INE ,MODE 


PC,SEND 
#MSG115 ,ONL INE 


;SU FOR LINE 0 


MAKE WORD OFFSET TO TABLES 
;DONE YET ? 


;1S LINE SELECTED ? 
;YES- GO TEST LINE 
;NO- TRY NEXT LINE 


;SEND TEST ID MSG 


;MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


:WAIT FOR PRINTING TO FINISH 
; THEN WAIT 10 SECONDS 


;SETUP STALL TIME CONSTANT 


; CHAR et FLAG SET ? 


YES GOTO 
[NO- PROMPT OPERATOR 
MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


;DELETE CHAR ? 
:YES JUMP TO 10 


SAVE CHAR 
:SU TO CONVERT TO OCTAL/ASCII 


9 ;CONVERT & STORE AT T30BUF 


SEND OCTAL DATA 
;MESSAGE ADDRESS TO R5 
:SET SINGLE LINE MODE 
SELECTED LINE NO. 


AND AN ‘=' 
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014702 


014722 
31500 014726 
31600 014732 
fa 014740 


31800 

31900 014742 
32000 014746 
32100 014750 


116314 


012705 
112737 
113737 
004737 
000415 


113737 
012705 


35300 015212 
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035747 
035747 
035747 
040716 


001175 
001174 


037114 


037114 
000010 
001204 
031700 
040000 


001175 
001174 


031560 


035201 
020346 


037154 
000010 


001175 
001174 


014422 


037157 


014302 
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#MSG115,R5 
#10,MODE +1 
ONL INE ,MODE 


j;MESSAGE ADDRESS TO R5 
SET SINGLE LINE MODE 
SELECTED LINE NO. 


PRINTABLE CHARACTER ? 
YES= GOTO 7 

#MSG149,R4 

R3 

WORK ,R3 

WORK 


WORK ,R3 sCODE *3 FOR TABLE OFFSET 
MSG33(R3), (R4)+ 


R3 
MSG33(R3) , (R4)+ 
R3 


MSG33(R3) , (R4) 
#MSG149 ,ONL INE 


GET MNEMONIC CHARS 
;PRINT CHAR MNEMONIC 


#MSG149,R5 

#10,MODE+1 

ONL INE ,MODE 
PC,SEND 


CHARIN,MSG70 


#MSG70, tei 


#MSG70, 
#10,MODE+1 
ONL INE ,MODE 


PC,SEND 

ala tects 
NO CALL ERROR RIN. 
7:1F BIT 15 SET IN SWR 


#MSG15 ,-(SP) 
PC ,ERRORT 


#MSG75 , ONL INE 
#MSG75 ,R5 


#10,MODE+1 
ONL INE ,MODE 
PC, SEND 

3$ 


ONL INE 
1$ 


#MSG77 
a 


MOD 
PC, SEND 
PC 


LOOPO 

wB112 FLAG21 
R5,CHARIN 
PC .KBOUT 


:MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


ECHO RECVB CHARACTER 


;MESSAGE ADDRESS TO R5 


:SET SINGLE LINE MODE 


SELECTED LINE NO. 
PARITY OK ? 


3;MESSAGE ADDRESS TO R5 


SET SINGLE LINE MODE 


sSELECTED LINE NO. 


TEST NEXT LINE 


;BUILD SEND CALL USING MESSAGE ADDRESS 
NOW SEND THE MESSAGE 


ABORT TIMEOUT 
SET CHAR RECVD FLAG 


TO RECV RIN, 
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EST 

S TEST WILL REQUIRE THE OPERATOR TO ENTER 
SETUP AND CHANGE THE MODE TO THAT SPECIFIED. 
A LINE OR LINES OF DATA WILL BE PRINTED AND 
SHOULD BE AT THE NEW PITCH. 


CHOCO HOOHEHOHEHEHOEHEEHHEEHHEHHEHOHOHHHEHHEHEHHHEEHEHEHEEHEHHEHEHHEEEe 


;START ON LINE 0 


001140 


001152 


TEST22: CLR ONL INE 

MOV #TABL24,R1 
WORK 
#11$,HOOK 
1$: ONL INE ,RO 


RO 

— »NUML IN 
DZL INE (RO) 

2s 

ONL INE 

1$ 


#™SG320 , ONL INE 
#MSG320,R5 

#10 MODE +1 

ONL INE ,MODE 
PC, SEND 


WORK2 
WORK2 ,#10. 
4$ 

ONL INE 

1$ 


#MSG303,ONL INE 
#MSG303,R5 
#10,MODE+1 

yt ~> tonne 


2 


* naa 


;SET INTR CATCHER 


An ty ALL LINES ? 
;YES JUMP 


ACTIVE LINE ? 
:YES= START TESTS 
SNO= TRY NEXT LINE 


SEND TEST ID 
sMESSAGE ADDRESS TO R5 


;SET SINGLE LINE MODE 


;SELECTED LINE NO. 


; SUBTEST 0 OF 9 
;DONE 10 YET? 

NO KEEP TESTING 
YES GET NEXT LINE 


;SEND INSTRUCTIONS 
sMESSAGE ADDRESS TO R5 
SINGLE LINE MODE 
sSELECTED LINE NO. 
;POINT TO MSG TABLE 


SEND MSG FOR SUBTEST 


R 
TABL24(R1) , ONL INE 
016105 R1) 
112737 
113737 
004737 


;MESSAGE ADDRESS TO R5 
:SET SINGLE LINE MODE 
SELECTED LINE NO. 


012705 
112737 
113737 
004737 

012737 


012705 
004737 


s;MESSAGE ADDRESS TO RS 
;SET SINGLE LINE MODE 
SELECTED LINE NO. 


:GETS CLEARED BY XON os, 
TALLOW SETUP TIME 15 S 
SETUP STALL TIME CONSTANT 


: SEEN XON YET ? 
;YES CONTINUE 

; LINE SELECTED ? 
YE TIME 


S WAIT MORE 
“REPORT ERROR 


001174 
177777 001136 #1 NOTYET 
: #15000. 

035230 MO #15000. ,R5 
PC “MSTALL 
NOTY ET 
7$ 

024546 STOP(R1) 


6 
036225 #MSG40 ,~-(SP) 
020346 PC,,ERRORT 


9000 015464 
39100 015470 
39200 015472 
39300 015476 
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39400 015502 000000 IF SW 15 SET 
001204 on — ; TRY NEXT LINE 


024546 , STOP(R2) 
015446 5$ 


015650 ; TAB24B(R1) 
9$ 


40 015532 zYES JUMP 
40300 015534 TAB24B(R1) , ONLINE ;SEND THE MSG 
015534 015650 MO 5 ;MESSAGE ADDRESS TO RS 
000010 SET SINGLE LINE MODE 
;SELECTED LINE NO. 


;SU NEXT SUBTEST 
40700 015574 $ RELEASE INTR CATCHER 
40800 015600 ;EXIT 


40900 

41000 

41100 015602 : sXON ? 
12$ 


:CLEAR IN XON 
ABORT TIMEOUT 
41500 015620 
41600 


41700 

41800 015622 04 041565 . MSG309 ,MSG310,MSG311,MSG312,MSG317,MSG314 
015630 041623 

41900 015636 041647 ° MSG313,MSG308 ,.MSG316,MSG315 ,000000 
015644 000000 


42000 
42100 aE 554 037642 . MSG107,MSG107,MSG107,MSG107 ,.MSG321 


01565 
42200 015662 042050 . MSG322 ,MSG323 .MSG324 ,MSG325 ,.MSG326 ,000000 
015670 000000 
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61300 015762 
61400 
61500 015764 


012705 


012705 
013737 
112737 
004737 


012705 


013705 
013737 
112737 
004737 


012705 


013705 
013737 
112737 
004737 


041313 
001174 
031700 
010000 


000101 
001172 


000020 
032226 
037157 


001160 
007516 


000020 
032226 


001116 


001174 
001175 


007516 
007516 


001174 
001175 


“THIS TEST 
OF ALL PR 


WILL PRINT A CONTINUOUS PATTERN 
INTABLE CHARACTERS. EACH CHARACTER 


WILL BE PRINTED ON 2 FULL LINES, 
WITH THE PASS COUNT INBEDDED IN THE LINES. 


THIS PATT 
EACH LINE 
LOOPING I 


TEST15: SENDALL #MSG270 
MOV #MSG2 
MODE 
PC, SEND 
#B1T12,S0 
3$ 


#°A, WIDTH 
#°A,RS 


e 


antes PRECESS 1 CHAR POSITION 
S CONTROLLED BY SWITCH #12. 


CCPC EEOC EHEEEEHEHEHHHEEEEEE 


SEND TEST ID 
;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
31F LOOPING GO TO SECTION 4 


PRINT A FULL LINE OF A'S 
ET CHAR TO R5 


WIDTH, MODE ;GET REPEAT COUNT 
MOVB #20 MODE + 
JSR PC ,CHROUT 
SENDALL #MSG77 
MOV #MSG77 ,R5 

MODE 

PC, SEND 

PC 


1 ;SET REPEAT MODE 
;CALL CHAR OUTPUT ROUTINE 
SKIP 3 LINES 
BUILD SEND CALL USING MESSAGE ADDRESS 


1 ed THE MESSAGE 


WIDTH, WORK GET WIDTH 
5 ,WOR 


sPRECESS LIMIT 

:SAVE_IN W 

PRINTING CHAR CODE 

;SU 2 LINES PER CHAR 
;CURRENT PRECESS COUNT 

; CONVERT PASSNO TO ASCII 
DO WHILE BIT 12 = 1 


GET PRECESS COUNT 


:PRINT . CHARACTER 
T CHAR TO R5 

ZGET REPEAT oCOUNT 

[SET REPEAT MODE 

[CALL CHAR OUTPUT ROUTINE 

PRINT THE PASS COUNT 

;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 


CHAR COUNT = WIDTH ~ 5 = PRECESS CNT 


WORK1 ,W3 
BEQ 8$ 
SENDC2 WORK ,W3 
MOV WORK ,R5 


PRINT CHARS TO END 
GET CHAR TO R5 

[GET REPEAT COUNT 

7SET REPEAT MODE 

[CALL CHAR OUTPUT ROUTINE 
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63300 016156 8$: SENDALL #MSG75 7 SEND CRLF 
016156 012705 037154 MOV a SBUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
WORK 1 SNEW PRECESS COUNT 
007512 ;RESET TO 0 IF MAX 
9$ 
+3 ’ 32 LINE DONE YET? 
007514 YES RESET LINE COUNT 
WORK :GET NEXT CHAR CODE 
000177 rie SUNLESS ALL DONE 


001160 ; THEN RESET CHAR CODE AND 
; COUNT 


64500 016250 
64600 016254 0162 : 

64700 016260 : 4% :GO CHECK SW 11 
64800 


64900 

65000 016264 013737 001134 : PASSNO, TEMP 

65100 016272 012705 MO #T30BUF ,R5 
004737 PC BIOCT ; CONVERT TO ASCII 
113737 041377 T30BUF +4 .MSG271+1 
113737 016325 041400 T30BUF +5 .MSG271+2 

ooeet 016316 000207 PC 


65502 
65503 


65504 
65505 016320 T30BUF: .BLKW 6 
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xER EEE Sante to ee ne eee ie ee 
THIS TEST WILL PRINT A 10 BY 6 INCH MATRIX OF CHARACTERS 
UTILIZING ALL POSSABLE COMBINATIONS OF PITCH SETTINGS. 


CCCCHOOHOHOOEHEOCOEHEHEOEHOEHETHOHOHEHEHEHEHEEHEHEHEHHEHHEHHEHEHHHHHEHEEHEHEEHEEHEHEHHEEE 


TEST16: SENDALL #MSG280 ;SEND TEST ID 
012705 MOV en ;BUILD SEND CALL USING MESSAGE ADDRESS 


PC .SEND NOW SEND THE MESSAGE 
000011 - R3 71F 80 COL MAKE 6X8 MATRIX 
001172 000120 teenies 


112703 000007 MOVB #7 ,R3 
: #MSG77 SKIP 3 LINES 
012705 037157 MOV #MSG77,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 MODE 
004737 JSR PC,SEND NOW SEND THE MESSAGE 
#™SG104 SET H-PITCH TO 16.5 
012705 MOV #MSG104,R5 SBUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
2 w ;DO0 6 V PITCH GROUPS 
007512 000005 ; HM 71F Wi > 5 GOTO 50 


016776 5 
007512 : GET V GROUP NO. 


RO 
2400 016446 012154 MOV TABLVF (RO) ,R1 :POINT TO V PITCH SETUP 
2500 016452 1 SETUP V PITCH 
016452 MOV cae ;BUILD SEND CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
2600 0 007514 TBL31E(RO),W2 ;GET LINE COUNT FOR THIS PITCH 
2700 016472 4 : We 7IF ALL LINES DONE GOTO 40 
2800 016476 4$ 
2900 016500 000137 40$ 
3000 016504 : W3 :D0 10 H PITCH GROUPS PER LINE 
3100 016510 JSR PC ,QUIET 


3200 016514 #MSG75 SEND A_ CRLF 
MOV A ta SBUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
;IF 10 DONE GOTO 30 


016756 
007516 : :POINT TO H PITCH SETUP 


R 
017114 MOV TBL31C(RO).R1 ;ADDRESS IN R1 

R ; SETUP H PITCH 

R1,R5  ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 DE 


MO! 
031700 PC,SEND NOW SEND THE MESSAGE 
034166 PC ,QUIET 


4000 016566 
4100 016572 
4200 016574 
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4300 016576 


113711 
010105 


016736 
6200 016742 
6300 016746 
6400 016752 
6500 016756 
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001160 
001162 


001162 


001162 


001162 
001164 


001174 
001175 


037157 
001174 
031700 
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Wl RO 

RO 

RO ,WORK3 
WORK3 
WORK3 
WORK3,RO 


wW3,RO 
TBL31A(RO) , WORK 
WORK 1 


WORK 1 
#TBL31G,WORK1 


@WORK1 ,RO 
TBL31D(RO) ,R1 
W3,WORK1 


WORK1 
#TBL31F ,WORK1 
K1,WORK2 


#20 ,MODE +1 
PC, SEND 
PC QUIET 
w3 


1$ 

PC, ,RESETO 
#MSG77 
#MSG77,R5 
MODE 

PC, SEND 
PC 


GET ADDRESS OF CHARACTER 


;RO= W1*10. 
;RO= V ROW + COLM OFFSET 
[PUT CHAR IN WORK 
;GET FORMAT SELECTOR 


RO HAS SELECTOR 
[R1 HAS OUTPUT MSG ADDRESS 


:GET PRINT REPEAT COUNT 


z;WORK2 HAS REPEAT COUNT 
;PUT CHAR IN OUTPUT MSG 
PRINT H GROUP OF CHARS 


NEXT H GROUP 


sADJUST LINE COUNT -1 
;DO NEXT LINE 

NEXT V_ GROUP 

;DO NEXT V GROUP 
RESET THE TERMINALS 


;BUILD SEND CALL USING MESSAGE ADDRESS 


NOW SEND THE MESSAGE 
ALL DONE...BYE 


SEQ 0072 
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; TBL31A 


; TBL31G 


TBL31A: .BYTE 


-BYTE 


RAR 


-BYTE 


SESS 


AWN -AOUUISE 


-BYTE 


— et oe es OS _ 
—=-Ono— 


-BYTE 


wR 
=u 


-BYTE 


“Ww 
—-AW WOO UNS DON 


WHS MNN - HO SO 


: 
1 
1 
1 
1 
1 
66 1 
1 
1 
0 
; 
1 


_—=O-— 
WrRNNN 
MNNAKS 


-EVEN 


037572 037604 


037677 


TBL31C: . 


041374 
037123 


000014 000006 
000004 000003 000002 
000014 


000006 
000004 


037114 037117 TBL31D: . 


017146 


017150 
017156 


TBL31E: 


TBL31F: . 


000000 TBL31G: . 
000002 
000004 


SEQ 0073 


6 GROUPS OF 10 CHARACTER CODES 

TABLE OF 10 H PITCH MESSAGE ADDRESSES 
TABLE OF 4 OUTPUT MESSAGE ADDRESSES 
TABLE OF 6 LINE COUNTS PER V PITCH 
TABLE OF 10 PRINT REPEAT COUNTS 

TABLE OF 10 SELECTORD TO TBL31D 


52.141,142,143,144,145,146,53,101,102 


147,150,151,152,153,154,44,103,104,105 


155,156,157,160,161,100,106,107,110,111 


162,163,164,165,75,112,113,114,115,116 


166,167,170,45,117,120,121,122,125,124 


171,172,43,72,125,126,127,130,131,132 


MSG99 ,MSG100 ,.MSG101 .MSG108 ,.MSG99 
MSG100,MSG101 ,MSG108,MSG101,MSG101 


MSG281 ,MSG70 ,MSG71 ,MSG72 


12.,8.,6.4,3.2 


16.,12.,12.,10.,8.,6.6,5,.4.4 


0,0,0,0,2,2,2.2,4.6 
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105737 


Ss8ssssss 


012705 
004737 
012716 
000137 
122777 
001006 


012705 


2 017366 
2700 017372 
800 017400 


5000 017546 
5100 017550 
5200 017556 
5300 017564 
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177560 
017372 
177562 
000200 
000033 


020144 
177564 


161676 
000003 


042113 
020304 


002336 
017372 
000015 


037154 


020326 
161572 
000040 
161554 
020326 
017372 
000110 


100000 
100000 


001206 
017410 
000114 


161636 


177560 
001206 
000071 
161560 
000015 


001206 
161530 
001116 
001210 
161474 
001116 
001210 
161440 


001116 
001210 


-SBTTL CONSOLE DRIVER ROUTINES 


1$ 
a4177562,aPNTR 


#200, aPNTR 
#33,aPNTR 
111$ 


18$ 
tia 


c4 


2 

#15,aPNTR 

2$ 

#MSG75 

#MSG75 ,R5 
PC,.CSEND 

3$ 

PNTR 

#101 ,a4177560 


#TKBUF ,PNTR 
oer; 


#40, aPNTR 
@PNTR,A15 


#B1T15,S0 
#B1T15,TMPTST 
PNTR 

4$ 

#'L,@PNTR 

8$ 


#B1T14,S0 
#81114, TMPTST 
PNTR 


4$ 
#'C,@PNTR 
9$ 
#140400 ,S0 


#140400, TMPTST 
PNTR 


11$ 
@PNTR, 24177566 
@PNTR 


READY ? 
FALSE INTERRUPT 
READ CHAR INTO BUFFER 


STRIP PARITY BIT 
;DECODE INPUT IF ESCAPE 


;ECHO THE CHAR 


stti=t 7? 
; SEND READY 

;GET MESSAGE ADDRESS 
;SEND MESSAGE 
sRETURN TO WAIT STATE 
;DECODE INPUT IF CR 
;ECHO CRLF 

:GET MESSAGE ADDRESS 
>SEND MESSAGE 


;GET NEXT BUFFER SPACE 
I a ON AGAIN 


sRESET LC BIT IF ALFA 
STOP DECODE IF CR 


;RESET BUFFER POINTER FIRST 
HALT COMMAND? 
7:YES- SET BIT 15 


;LOOP COMMAND ? 
7YES- SET BIT 14 


:CLEAR COMMAND ? 
RESET THE BITS 
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5400 017570 000137 017410 4$ 
5500 017574 000127 161404 9$: #'W,@PNTR SET WIDTH ? 
5600 017602 1 


O$ 
RO,-(SP) ;SAVE RO 
RO 


020054 PC,15$ ;CONVER NEXT CHARS TO OCTAL 

001172 RO,WIDTH SET NEW WIDTH LIMIT 
(SP)+,RO 

001172 : WIDTH 


25$ 
000204 001172 #204 ,WIDTH 
6500 017636 001172 000204 2 WIDTH, 4204 
6600 017644 003403 26$ 
6700 017646 000204 001172 #204 ,WIDTH 
6800 017654 001172 000040 : WIDTH, #32. 
002003 27$ 


6900 017662 

7000 017664 000040 001172 #32. ,WIDTH 

7100 017672 000 017410 : $ 

7200 017676 000122 161302 : #'R,@PNTR ;RUN TEST COMMAND ? 

7300 017704 1014 BN 11$ 

7400 017706 010000 001210 #B1T12,TMPTST SET THE CNTL BITS 
010046 a 


020054 sCONVERT NEXT TO OCTAL 
020230 
(SP)+, -RO 


4 
161242 : a ‘3° -@PNTR -¢ ; SEQUENCE COMMAND ? 
012000 001210 oo erert TMPTST 


RO,-(SP) 
8500 017756 RO 
8600 017760 020054 PC,15$ CONVERT NEXT TO OCTAL 
8700 017764 020230 PC .NUMCHK 


(SP)+,RO 
017410 4$ 
000056 161202 : e TERMINATOR ? 


000400 001116 1T8,S0 
001210 B #8118, TMPTST 
001206 : PNTR 
017410 JMP 4$ 
#MSGK3 UNDEFINED COMMAND CHAR 
#MSGK3,R5 ;GET MESSAGE ADDRESS 


J PC,CSEND SEND MESSAGE 
001206 : ti al -PNTR 
J 


017410 
000123 


017372 
001206 : PNTR ;POINT TO NEXT CHAR IN BUFFER 
161122 yn ae EXIT IF NOT NUMERIC 
161112 @PNTR,A71 
161102 @PNTR,#70 DECIMAL OR OCTAL ? 
002404 17$ 
10800 020110 000077 #77 ,RO DECIMAL ; INVALID 
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10900 020114 000137 020142 JMP 16$ 
000370 161060 17$: + ae STRIP AWAY ASCII BITS 


RO MAKE ROOM FOR NEW DIGIT 
161046 ° ;ADD ~ if LSD 
BR 15$ GET NEXT CHAR 
SEXIT OCTAL IN RO 


: #MSG22 ECHO $ AND CRLF 
012705 035443 MO #MSG22 ,R5 GET MESSAGE ADDRESS 
004 020304 PC,CSEND 
013737 001210 001116 TMPTST,SO 
062706 000002 


#2,SP iF ETURN P 
012746 002450 #LSEQ,-(SP) ;TO TEST SEQUENCER 
012737 020326 001206 MO #TKBUF ,PNTR RESTORE BUFFER POINTER 
#MSGK1 SEND ‘READY’ 
012705 MO #MSGK1,R5 3;GET MESSAGE ADDRESS 
020204 004737 PC,CSEND SEND MESSAGE 
12400 020210 012737 000101 177560 MO #01 .a#177560 ENABLE CONSOLE 


12500 020216 
020216 012705 000 MO #100,R5 SETUP STALL TIME CONSTANT 
020222 PC ,MSTALL 

12600 020226 ;TO TEST SEQUENCER 


12700 
12800 020230 : RO TEST NO. ENTERED ? 
BN 3$ 


TMPTST 
001210 1$: + sali tate om SELECT 
Y 
RO,#22 :T00 BIG ? 
4$ YES 
001210 #B1T10,TMPTST OK SELECT TEST 
ee SAVE TEST NO. 
a 12722? 


#MSGK3,R5 3;GET MESSAGE ADDRESS 
oo Fae ;SEND MESSAGE 


os SS as oS SS 


° CONSOLE TRANSMIT ROU 
CSEND: TSTB (RS) :NULL ? 
BEQ 2$ *YES- ALL DONE 
1$: Tse 177564 ‘WAIT FOR READY BIT 
MOVB —- (R5)+,a4177566 ;SEND CHARACTER 
BR CSEND 
13200 020324 2s: RTS PC 
15400 020326 TKBUF: .BLKW 10 :CONSOLE INPUT BUFFER AREA 


15600 
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-SBTTL ERROR HANDLER 


CP LESSEE Sere eer eee tee eee ee eee 


ERRORT 
; THIS ROUTINE WILL HANDLE THE PRINTING OF 
ERROR MESSAGES, UPDATE ERROR COUNTS, AND 
CHECK ON SWITCH 13. 


CROCCO HEHEHE EHEHEHHTHEEOHEHHEHEHEHEEHEHEHHEEHHHHH HEHEHE 


032737 001116 ERRORT: BIT #81T13,S0 ; INHIBIT PRINT ? 
BNE 1$ sYES JUMP 
CONVERT LINE NO. TO ASCII 


-B10 CALL CONVERTER 
EBUF +4 ,MSGE+14. ;FORMAT ERROR MSG 


TSTTYP, TEMP GET TEST NO. 
#177700, TEMP 
#EBUF ,R :CONVERT IT TO ASCII 
PC ,BIOCT 
020611 EBUF +4 ,MSGE +5 FORMAT ERROR MSG 
113737 020612 EBUF +5 ,MSGE +6 
TEST AND LINE NO'S 


012705 [MESSAGE ADDRESS TO R5 
;SET SINGLE LINE MODE 
;SELECTED LINE NO. 


SAVE R3 
:GET MSG ADDRESS FROM STACK 
;SEND ERROR MSG 
R3,R5 ;MESSAGE ADDRESS TO R5 
001175 #10,MODE+1 SET SINGLE LINE MODE 
001174 Bae ; SELECTED LINE NO. 


; SAME THING TO CONSOLE 
020604 ;GET MESSAGE ADDRESS 
020304 pS’ SEND MESSAGE 


MOV R3,R5 GET MESSAGE ADDRESS 
020536 004737 020304 SEND MESSAGE 
18500 020542 RESTORE R3 
011666 000002 : SERASE ADDR FROM STACK 
000002 #2 ,SP ;ADJUST STACK POINTER 
001110 FLAG THE ERROR 
001116 ;HALT ON ERROR SET ? 


; JUMP OVER ERROR HALT 
4 020572 000207 2s: PC ;RETURN 


031700 


020530 
18400 020534 
020534 


19400 
19500 020574 EBUF:  .WORD 0,0,0,0 ;BUFFER AREA 
0 000000 
MSGE:  .ASCIZ /TEST 00, LINE 00 / STD MSG HEADER 
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19700 -EVEN 
19800 





CZLAIAO ray A DMT PROG MACRO M1110 20-APR-78 04:21 PAGE 32 


ERROR HANDLE 


100 
200 
300 


5300 
5400 020746 
5500 


-SBTTL 0211 DRIVER ROUTINES 

;THSES ROUTINES WILL HANDLE FROM 1 TO 8 0211'S 

:JOHN COMEAU INVENTED THESE UONDERFULL ROUTINES 

;NOW A BUNCH OF TABLES 

HERE IS A ONE WORD PER LINE TABLE. IT HOLDS LINE PARAMETERS 


THE PROGRAM IS RESPONSIBLE FOR SETTING IT UP. 
THE DZ11 ROUTINES SIMPLY READ IT. 


:BIT 7 IN EACH BYTE, IS THE INACTIVE BIT. IF SET, THE LINE 
;WILL BE IGNORED BY THE DRIVER ROUTINES 


:BITS 3-0 HOLD THE LINES BAUD RATE INFO 
BITS 3-0 


— eS = 41 OC 


RESERVED 
‘BIT 6 SELECTS THE TYPE OF PARITY, O= EVEN 1=0DD 
:BIT 5 IT THE PARITY ENABLING BIT, 0 IF NO PARITY, 1 IF PARITY 


DZLINE: .BLKW DZCON*8. ; NO. OF DZ'S TIMES 8 LINES PER DZ=# WORDS 


HERE ARE THE DZ11 COMMAND BUFFER AREAS 
; THERE IS ONE be EACH LINE. 
“— OF 20 WORDS LONG 
THE COMMAND FORMAT IS AS FOLLOWS. 
[1ST WORD IS THE ADDRESS OF THE MESSAGE BEING TYPED 
7; THE 2ND WORD. IF 0, STANDARD MEGSSAGE 
71F HIGH BYTE IS 10, LOW SYTE HOLDS LINE NO TO SEND TO 
71F HIGH BYTE IS 20 LOW BYTE HOLDS REPEAT COUNT 
;IF HIGH BYTE IS 30 LOW BYTE HOLDS SPECIAL TERMINATOR. 
DZ2COMB: .BLKW DZCON*8.*20. ; 8 LINES PER DZ TIMES 20. WORDS PER LINE TI 
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DZ11 DRIVER ROUTINES SEQ 0080 
5700 ; TABLE OF FLAGS FOR ACTIVE LINES 
5800 024046 ACTIVE: .BLKW DZCON*8. 
5900 
6000 
6100 HERE IS THE TABLE OF CURRENT REPEAT COUNTS. 
os 024166 CURREP: .BLKW DZCON*8. 
6400 ;HERE IF THE TABLE OF CURRENT TERMINATORS 
eH 024306 CURTER: .BLKW DZCON*8. 
6700 HERE IS THE LINE REPLY TABLE 
yrs 024426 REPTBL: .BLKW DZCON*8. 
7000 HERE IS A TABLE OF SWITCH WORDS SET TO CLEAR TCR REG 
ah 024546 STOP: .BLKW DZCON*8. 
7300 ;HERE IS THE TABLE OF CURRENT TEXT ADDRESSES 
Hosoi 024666 CURADD: .BLKW DZCON*8. 
7600 HERE ARE THE PRINTING COMMAND BUFFER POINTERS 
7700 025006 COMCNT: .BLKW DZCON*8. 
7800 025126 COMIN: .BLKW ODZCON*8. 
7900 025246 COMOUT: .BLKW DZCON*8. 
sei 025366 COMEND: .BLKW DZCON*8. 
8200 025506 TCRBIT: .BLKW DZCON*8. sLINE1=1, LINE2=2, LINE3=4, LINE4=10 
8400 ;CHAR COUNT 
8500 025626 KBCNT: .BLKW DZCON*8. 
8700 ;END OF BUFFER TABLE 
8800 025746 KBBUFE: .BLKW DZCON*8. 
9000 ;BEGIN OF BUFFER TABLE 
A 026066 KBBUFB: .BLKW DZCON*8. 
9300 ;BUFFER PUT IN POINTER 
oe 026206 KBBUFI: .BLKW DZCON*8. 
9600 ;BUFFER TAKE OUT POINTER 
9700 026326 KBBUFO: .BLKW DZCON*8. 
9800 
10000 ;HERE IF THE KEYBOARD BUFFER AREA 
Hak. 026446 KBBUF: .BLKW  DZCON*8.*20. 38 WORDS TIMES 8 LINES TIMES # OF DZS 
10300 


10400 3;DZ11 STATUS REG ADDRESS TABLE 
9's 031546 DZCSR: .BLKW DZCON ONE CSR PER DZ11(REALLY!) 


10700 ;DZ11 RECIEVE ERROR BIT TABLE 
10800 031560 RECERR: .BLKW DZCON*8. 
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esbsbbesesesteanees 


$8 


031700 
031702 
031704 


mee me eh ek kk ad od od od I 1 oh ot SY 
SON 


032 
14700 032016 
2022 


— — 
38 
ooo 
RIXIXY 
N 
oOo 
NM 
r~ 


1 2120 
16400 032126 


001104 
000010 


001175 
001174 


001174 
000001 


031762 
001152 


020626 
025006 
024046 
000144 
033614 
024546 
024046 
024046 


031762 
000200 


001175 


001106 


001106 


000010 


000310 


020626 


025126 
025126 


025126 
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SEQ 0081 


eeoeeeee eee eee eee eee eee eee Oe he He TT eH Te 


:02° SEND’ ROUTINE’ 
;CALLING SEQUENCES 


Cee eeeeaeeaeee eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeaee 


: JSR PC SEND 7 CALL 
: R5 THIS IS THE MESSAGE ADDRESS 
5 DE THIS SPECIFIES THE TYPE OF MESSAGE AS FOLLOWS... 
; MODE HIGH BYTE LOW BYTE 
’ 0 SEND TO ALL ACTIVE DZ LINES 
: 10 SELECT ;SEND TO SELECTED LINE 
: ;USE LOW BYTE AS LINE NO. 
: 20 REPEAT SEND TO ALL ACTIVE LINES 
: USE LOW BYTE AS THE MESSAGE REPEAT COUNT 
: 30 TERMIN SEND TO ALL ACTIVE LINES 
: USE LOW BYTE AS MESSAGE TERMINATOR 
SEND: MOV RO,-(SP) ay RO 
MOV R1,-(SP) D RI 
MOV R2,-(SP) “AND R2 
MOV RS ,MSGADR 
CMPB #10,MODE+1 31S THIS MESSAGE MEANT FOR ONLY 1 TERMINAL? 
BNE 2$ ;NO 
CLRB MODE +1 


ZYES 
=GET LINE # 


ASL MAKE WORD OFFSET 
CLR MODE zNO SPECIAL STUFF FOR INDIVIDUAL LINES 
MOV #1,SENDTM :COUNT = 1 LINE ONLY 
JMP SEND1 D0 DO IT 
2$: MOV NUML IN, SENDTM A COUNT OF LINES SO WE KNOW WHEN WE ARE THROUGH 
CLR R [START WITH THE 1ST LINE 
SEND1: TSTB DZLINE (RO) :IS THE LINE INACTIVE? 
BMI 7$ SO, DONT TRY TO SEND IT ANYTHING. 
CMP COMCNT (RO) 48. TALREADY FULL? 
BLT 4$ :1F ROOM IS THERE, PUT STUFF IN. 
TST ACTIVE (RO) 31S THE LINE ACTI VE ? 
2$ :NO- gy! THE LINE 
STALL 100. WAIT A_ SHORT TIME THEN RETRY 
V 100., :SETUP STALL TIME CONSTANT 
JSR PC ,MSTALL 
TST STOP(RO) 31S LINE WAITING FOR XON 
BPL 1$ :NO- 
INCB ACTIVE (RO) ;COUNT THIS PASS THRU 
CMPB ACTIVE(RO) ,4200. CHECK FOR pide he —— 
ALLOW 20 SECONDS MA 
BHIS ;T00 LONG- ABORT WAIT 
1$ JMP SEND 
2$ BIS wBIT?, encmateeall ;DESELECT THE LINE 
DEC UUT ONE LESS UNIT TO TEST 
CLR STOP(RO) 
CLR ACTIVE (RO) 
JMP 7$ Y THE NEXT LINE 
4$: MOV MSGADR, ACOMIN(ROS : PUT ss ag INTO THE COMMAND BUFFER 
CLRB ACTIVE (RO) ERASE ANY DELAY COUN 
ADD #2 ,COMIN(RO) BUMP POINTER 
pre MODE ZaCOMINGRO) | ;PUT een MODE INTO THE BUFFER ALSO 


(RO INTER 
CMP COMEND(RO),COMIN(RO);IN POINTER AT END OF COMMAND BUFFER? 
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16500 032134 
16600 032136 


18800 032226 
18900 032232 


19000 032234 
p's 032240 


19200 
19300 032244 
19400 
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000050 025126 
025006 
024546 


177761 


000040 


042370 
031700 


SEQ 0082 


6$ ;IF NOT. 

come wae TYES, AT END. RESET IT TO THE oo ae 
T(RO) ZADD’1 TO COUNT OF COMMANDS IN THERE 

STOP CRO) i THE LINE WAITING FOR XON? 

7$ ;YES. DONT SET TCR BIT 

aad 


R1 


R1 
#177761,R1 
DZCSR(R1) ,R1 :GET CSR ADDRESS 
TCRBIT(RO) ,4(R1);SET THE es TCR BIT 
RO NEXT LINE # 
; DONE ALL OF THEM? 


“RESTORE REGS WE 
(SP)+-RO SAVED UPON ENTRY 
PC TURN 


; SINGLE CHARACTER OUTPUT ROUTINE ALL TERMINALS 


CHROUT: SUB 
ASL 


ADD 
JSR 


RTS 


#40,R5 CHARACTER TABLE STARTS AT 40 
R5 [MAKE WORD OFFSET 

#PCTABL ,R5 z;ADD PRINT CHAR TABLE ADDRESS 
PC,SEND SEND MESSAGE WORD 


PC 





“nan 
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19600 
19700 
Lb o's 


20600 
20700 


032246 


032246 
032250 
032254 


032272 
032274 
032300 


032304 
032306 
032312 
032316 


032320 
032324 


000005 


000000 
032412 
000002 
032412 
000004 
032412 
000006 
032412 


000010 
032412 
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inna THE TRANSMIT INTERRUPT ROUTINES 


RO,-(SP) 
-RO 


TXINT 
RO,-(SP) 
#X RO 
TXINT 
RO,-(SP) 
TXINT 
RO,-(SP) 
#X RO 
TXINT 
RO,-(SP) 
#X,RO 
TXINT 
RO,-(SP) 


#X,RO 
TXINT 


; SAVE oe 
:PUT DZ # IN RO 
:GO TO MAIN ROUTINE 


; SAVE 7". 
:PUT DZ # IN RO 
:GO TO MAIN ROUTINE 


; SAVE RO 
sPUT DZ # IN RO 
:GO TO MAIN ROUTINE 


SAVE RO 
sPUT DZ # IN RO 
;GO TO MAIN ROUTINE 


; SAVE RO 
;PUT DZ # IN RO 
:GO TO MAIN ROUTINE 


SAVE RO 
PUT DZ # IN RO 
;GO TO MAIN ROUTINE 


SEQ 0083 


“an 
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20900 
21000 032330 
21100 


032330 
032332 
0323 


032 
039350 
032354 


032356 
032362 


032366 
032370 
032374 
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sHERE ARE THE RECIEVE INTERRUPT 
ZRINT: 


000000 
033102 
000002 
033102 
000004 
033102 
000006 
033102 


000010 
033102 
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RO,-(SP) 
#X ,RO 
RCINT 
RO,-(SP) 
#X,RO 
RCINT 
RO,-(SP) 
#X,RO 
RCINT 
RO,-(SP) 
#X,RO 
RCINT 
RO,-(SP) 
-RO 
RCINT 
RO,-(SP) 
#x,RO 
RCINT 


ROUTINES 


3 SAVE "s 
;PUT DZ # IN RO 
3GO TO MAIN ROUTINE 


3 SAVE os 
:PUT DZ # IN RO 
:GO TO MAIN ROUTINE 


7 SAVE RO 
;PUT DZ # IN RO 
:GO TO MAIN ROUTINE 


AVE RO 


S SAV 
sPUT DZ # IN RO 
:GO TO MAIN ROUTINE 


s SAVE RO 

zPUT DZ # IN RO 

;GO TO MAIN ROUTINE 
sSAVE RO 


PUT DZ # IN RO 
;GO TO MAIN ROUTINE 





————— eR eR RR AMM MM MN MN MMMM MMMM HM > > b> b> b> bP bP bP BD An 
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22100 
22200 ae Se JS THE MAIN yer INTERRUPT ROUTINE 
22300 032412 TXIN MOV R1,-(SP) SAVE ALL OF 
R2,~(SP) REGS WE INTEND TO USE 


031546 —_— RI 3DZ11 CSR ADDRESS 


RO 
(R1) ,DXTMP ;GET LINE # 
001100 DXTMP+1,DXTMP ;MOVE INTO LOW BYTE 
001100 #177770,DXTMP =; CLEAR ALL BITS EXCEPT LINE # BITS 
DXTMP ,RO :B16 LINE # IF DZ2# PLUS LINE # 
RO ;(DZ74 *8 + LINE NO.)*2 FOR OFFSET 
024546 ~_ 


025506 000004 TCRBIT(RO) ,4(R1) 
MP 9$ 


032770 
100000 024046 : #B1T15,ACTIVE (RO) ;SET LINE ACTIVE FLAG 
024666 CURADD (RO) 


2$ 

COMCNT (RO) 

4$ 

TCRBIT(RO) ,4(R1) 

= iat ;CLEAR THE LINES ACTIVE FLAG 


@CURADD (RO) ,DXTMP 

CURADD (RO) ;POINT AT THE NEXT NEXT CHAR 
DXTMP,CURTER(RO);I1S IT THE TERMINATOR? 
[NO. GO XMIT IT. 


SH HH HH HNN Ss o-OYE 


8$ 
CURREP (RO) 
7$ 


CURADD (RO) 
025246 #4 , COMOUT (RO) 
025366 MP COMOUT (RO) , COMEND (RO) 


25600 032606 3$ 
25700 032610 025246 #50, COMOUT (RO) 
25800 032616 005360 : COMCNT (RO) 


25900 032622 4$ 
000004 TCRBIT(RO) ,4(R1) 
Naat RO) 


024666 : @COMOUT (RO) , CURADD (RO) 
CURREP (RO) 
CURTER(RO) 
COMOUT(RO).R2  ;GET ADDR OF ADDR 
#2,R2 
(Re) ,DXTMP 
001101 #20 ,DXTMP #1 
001101 #30 ,DXTMP #1 


 RERKKEKEKK 


024306 : DXTMP, CURTER(RO) 


: DXTMP+1 
27800 032736 013760 024166 DX TMP, CURREP (RO) 
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27900 032744 032476 1$ 
024666 7$: nc thatint » CURADD (RO) 


001100 000006 8$: DXTMP,6(R1) PUT CHAR INTO XMIT BUFFER 
9$: (SP)+,R2 RESTORE THE 
(SP)+,R1 REGISTERS THAT WE 
(SP)+,RO DESTROYED 
28600 032776 
28700 


28800 
; THIS ROUTINE IS USED TO RESET ALL TERMINALS 


RESETO: SENDALL pag he sSET 6 LPI. 
012705 037616 MOV G103,R5 BUILD SEND CALL USING MESSAGE ADDRESS 


005037 CLR MODE 

004737 JSR PC,SEND > NOW 7 tp. MESSAGE 

SENDALL #MSG108 :SET 10 C 

012705 MOV en BUILD SEND” CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
#T12F IX RESET MARGINS 
012705 MOV AAS ay ;BUILD SEND CALL USING MESSAGE ADDRESS 


005037 
004737 PC ,SEND ;NOW SEND THE MESSAGE 
#MSG61 RESET ALL TABS 
012705 037070 MOV #MSG61,R5 ;BUILD SEND CALL USING MESSAGE ADDRESS 
005037 001174 MODE 
004737 031700 J PC ,SEND NOW SEND THE MESSAGE 
#MSG10 SET TABS EVERY 8 
gee MOV ern TBUILD SEND CALL USING MESSAGE ADDRESS 


PC, SEND NOW SEND THE MESSAGE 
PC QUIET 

29800 033100 PC 

29900 
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30100 
HERE IS THE MIN RECIEVE INTERRUPT ROUTINE 


30200 

30300 033102 RCINT: MOV R5,-(SP) 
30400 033104 R2, te) 
031546 DZCSR(RO) .R1 
000002 2(R1),R5 


001200 : R oR 
001201 001200 RCTMP+1 ,RCTMP 
177770 001200 orn eRCTMP 


RO 
001200 AD 4 TMP ,RO 


031560 R5 ,RECERR(RO) ;COPY ERROR BITS 
107777 031560 #107777 ,RECERR(RO) SDATA VALID,LINE NO.,DATA 
177400 #177400,R5 [CLEAR ERROR BITS 

020626 + le -DZLINE (RO) 31S UNIT SELECTED ? 


020626 vr ee DZLINE (RO) ;SELECT THE LINE 
;ADD TO UNIT COUNT 
#23. RS 


024546 #100200, STOP(RO);SET STOP FLAG & XOFF FLAGS 
32700 033232 146061 000004 TCRBIT(RO) ,4(R1) DISABLE TX INTR 
32800 033240 RCRTN 
32900 033244 : #21,R5 
33000 033250 KBN 
33100 


000004 : TCRBIT(RO) ,4(R1) ;ENABLE TX INTR 
024546 #B1T15,STOP(RO) ;CLEAR STOP FLAG 
024546 #BITO,STOP(RO) ;SET XON FLAG 


RCRIN 
3 RS ,@KBBUFI(RO) ;STICK_IT IN THERE 
026206 #2,KBBUFI(RO) ;GIVE THE POINTER A LITTLE PUSH TO THE NEXT EMPTY PL 
025746 KBBUF I (RO) , KBBUFE (RO) 71S THAT THE END? 


1$ i IF 
2 026206 KBBUFB(RO), KBaUF I (RO); ives IT WAS AT Lis om RESET IT 
025626 : 0) ; TALLY UP ONE MORE ENT 
AND GO RETURN IF WE HAVE LESS THAN 377 OF THEM 
HA 7400 ENRTYS IS TOO MANY. LET THIS HALT SERVE AS WARN 
001140 : i + gly onl ROUTINE WANT TO SEE CHARS IMMEDIATLY? 
145566 YES. GO OFF TO SOME MYSTERIOUS PLACE 


(SP)+_.RO :FROM INTERRUPT CATCHER 
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35700 sTHIS IS THE TAKE STUFF OUT OF THE KBFO BUFFER ROUTINE 
35800 ZCALL_USING A ‘JSR PC’ 
35900 71T RETURNS WITH R5 = = THE KBRST ENTRY 
36000 033364 025626 KBOUT: TSTB KBCNT (RO) ZANYTHING THERE? 
36100 033370 001003 BN 1$ :1 HOPE SO 

177777 #-1,R5 


BR 2s 
025626 : KBCNT (RO) ;REDUCE COUNT OF # ENTRYS IN THERE 
026326 @KBBUFO(RO),RS ;GET KBRST ENTRY 
000400 #400,R5 
000002 026326 #2,KBBUFO(RO)  ;BUMP POINTER TO NEXT ENTRY 
025746 026326 #KBBUFE , KBBUF0(RO) ; REACHED THE END OF THE BUFFER SPACE? 
2s IF NOT, JUST RETURN 
026066 026326 KBBUFB(RO), kesur (RO): Ms REACHED END. RESET POINTER TO THE BEGININ 
eon 033440 : PC ;RETUR 
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; THIS SUBROUTINE DOES MANUAL INTERVENTION TESTING, WHERE A CARRIAGE RETURN 
sMUST BE SEEN TO CONTINUE 
CALL WITH R3=ADDRESS OF 1ST PART OF REPEATING MESSAGE 
; R4=ADDRESS OF 3RD PART OF REPEATING MESSAGE 
R2=ADDRESS OF TABLE OF 2ND PART OF MESSAGE 
"THE TABLE CONSISTS OF 2WORD ENTRIES. 1ST WORD IS MESSAGE ADDRESS 
[2ND WORD IS PARAMETER TO BE SEND TO THE DZ11 LINE 
[A 000000 WORD MARKS THE END OF THE TABLE. 
;CALL_ THIS SUBROUTINE WITH A JSR,PC 
ANVENT: TST (R2) TABLE FINISHED ? 
BEQ 4 YES BRANCH 
SENDALL R3 >SEND FIRST PART 
MOV ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 CLR 


MODE 
031700 JSR P :NOW SEND THE MESSAGE 

SENDALL (R2 ‘SEND FROM TABLE 

MOV (R2)+,R5 ‘BUILD SEND CALL USING MESSAGE ADDRESS 
001174 CLR E 


MOD 
031700 JSR PC, SEND NOW SEND THE MESSAGE 
SENDALL R4 ;SEND LAST PART 
MOV R4,R5  ;BUILD SEND CALL USING MESSAGE ADDRESS 
001174 MODE 


031700 PC, SEND sNOW SEND THE MESSAGE 
034166 ‘peal ;WAIT TILL DONE 


001202 + tetas 3GET DZ NO. 
000002 t aaa 
031546 DZCSR(RO) .R1 ;GET DZ CSR ADDRESS 
ANTMPO 
001130 : ANTMPO, ANTMP1 
(R2) ,ANTMP1 
000002 ANTMP1,2(R1) 
ANTMPO 
001126 | ttt 
033520 1$ 
034366 PC ,AWAIT 
#2,R2 


000002 
4 033442 ANVENT :DO FOR NEXT TABLE ENTRY 
rr ahe 033612 3 PC DONE ALL LINES ON ALL DZ‘S. RETURN 
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STALL ROUTINE 
;CALL WITH JSR,PC 
; THE LOCATION FOLLOWING THE CALL SHOULD CONTAIN 
; THE AMOUNT OF MILLISECONDS TO HANG IN A NULL LOOP 
;RETURN IS TO THE LOCATION +4 OF THE CALL 
010537 001146 MSTALL: MOV R5,LOOPO ;GET # OF MILLISECONDS 
001142 1$: Vv LOOPC ,LOOP I SETUP CONSTANTFOR CORRECT STALLING TIME 


2$: 
001144 


001146 : ONE MILLISECOND DOWN 
;SOME MORE TO GO 
RETURN 


;BINARY TO ASCII CONVERT SUBROUTINE . 
;CALL USING A ‘JSR PC‘ 

[DERIVES ASCII CHARACTERS REPRESENTING THE CONTENTS 

:OF * iat ‘TEMP’, AND PUTS THEM INTO THE 6 BYTES POINTED TO 


THIS IS A STOLLEN ROUTINE. IT IS ROTTENLY WRITEN 
113765 001134 BIOCT: TEMP, 5(R5) 
R MP 


006037 TE 
113765 35 TEMP+1,2(R5) 
006037 TEMP 


006037 TEMP 

113765 TEMP ,4(R5) 

006037 TEMP 
TEMP+1,1(R5) 
TEMP 


TEMP 
TEMP, 3(R5) 
TEMP 
TEMP+1, (R5) 
#376, (R5) 
#370,1(R5) 
#370,2(R5) 
#370,3(R5) 
#370,4(R5) 
#370,5(R5) 
#60, (R5) 
#60,1(R5) 
#60,2(R5) 
#60,3(R5) 
#60,4(R5) 
#60,5(R5) 

45800 034050 PC 

45900 
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:BINARY TO DEC:MAL CONVERT ROUTINE 
SCALL WITH A JSR SP 
WROTE THIS MYSELF. ITs WONDERF ULL . 
BIDEC: R3,-(SP) s SAVE R3 
MOV R4.-(SP) TALSO RG WHICH WE WILL USE 
034154 #BIDECC,R4 “POINT RG AT SOME CONSTANTS 
000260 #260, (R5)+ ‘MAKE THE FIRTS DIGIT OF THE NUMBER 0 
‘1S THE # POSITIVE? 
001134 :NO. MAKE IT SO 
000235 177777 $5 35,-1(R3) AND CHANGE THAT 1ST DIGIT TO A ‘‘="' 
000257 : MOVB = #257..(R3) ‘INIT A DIGIT 
: (R3) ‘ADD 1 TO THE DIGIT 
001134 (R4), TEMP “KEEP SUBTRACTING CONSTANT TILL IT GOES NEGATIVE 
2$ ‘IF WE ARE STILL POSITIVE, DO IT AGAIN 
R3 ‘NO WE WENT NEGATIVE. POINT AT THE NEXT DIGIT 
001134 (R4)+, TEMP “ADD BACK THE CONSTANT, AND GO ON TO THE NEXT CONSTA 
(R4) “DONE THE 1ST 5 DIGITS YET? 
1$ ‘IF NOT, GO BACK AND DO ANOTHER 
000260 #260, TEMP ‘YES. ONE -REMAINS TO BE DONE 
001134 TEMP, (R3) ‘SET THE LAST DIGIT NOW. 
001134 (SP) +, TEMP [RESTORE EVERYTHING 
(SP) +_R4 S THAT WE USED TO 
(SP)+_R3 SITS ORIGINAL VALUE 
SP [AND RETURN 


49200 034164 
49300 


49400 
49500 ; WAIT FOR MESSAGE TO FINISH PRINTING 


49600 
49700 034166 010046 QUIET: ~ RO,-(SP) 


001152 NUL IN, RO :GET NO OF LINES 


R1 
RI RO ;1F DONE GO TO 5 
50400 034206 5$ 
50500 034210 ACTIVE(R1) STILL WORKING ? 
50600 034214 4$ STILL SET -BRANCH 
50700 034216 : #2,R1 : TEST NEXT LINE 
000770 BR 2$ 


#10 ;DELAY A WHILE 


#10,R5 SETUP STALL TIME CONSTANT 
PC ,MSTALL 

1$ 

(SP)+,R5 

(SP)+,R1 


(SP)+,RO 
PC 
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55300 034414 
55400 

55500 034416 
55600 034422 
55700 034426 


010046 
010146 
013700 
006300 
162700 
100404 


005060 
000137 
012737 


012705 
004737 
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001152 
000002 
024426 


001140 


001140 


024427 
024426 


;THIS IS_THE ae 


SCALL WITH A_JSR 


31T WILL WAIT .5 SECONDS FOR REPLYS FROM ON ALL LINES 


REPL 


1$: 


3$: 
4$: 


,= (SP) 


R1,-(SP) 
NUML IN, RO 
RO 


#2,R0 

2$ 

: iontaten 
#9$ , HOOK 
#500. 

#500. ,R5 
PC ,MSTALL 
#0, HOOK 
(SP)+,R1 
(SP)+,RO 
PC 
R5 ,#23 
3$ 
#21,R5 
4$ 
#1 ,REPTBL+1(RO) 


4 
#1,REPTBL (RO) 
PC 


ZF AM he A REPLY, THE WORD FOR THE LINE IN THE REPTBL IS SET 


sSAVE REGS WE USE 


PUT CLAWS INTO INPUT ROUTINE 
WAIT .5 SECONDS 


;SETUP STALL TIME CONSTANT 


TAKE HOOK OUT OF INPUT ROUTINE 


RETURN 
31S THE CHAR XOF? 
3NO. 


71S THE CHAR XON? 
YES. LET RECIEVE ROUTINE HANDLE IT 
:YES. SET HIGH BYTE 


;SET LOW BYTE INDICATING NOT XON OR XOF 


hon; IS THE SUBROUTINE THAT WAITS FOR A CARRIAGE RETURN 
AWAIT: MOV #1 ,NOTYET 


1$: 





#177600,R5 
#15,R5 


NOTYET 
PC ,KBOUT 
PC 


;SET NO CR YET SWITCH 

;PUT HOOK INTO RECIEVE te SO WE CAN TEST 
;SEEN A CARRIAGE RETURN YET? 

NO, KEEP LOOKING 


;RETURN 


;REMOVE JUNK FROM DATA BITS 
CARRIAGE RETURN ? 


:NO. 
YES. MAKE THE SWITCH REFLECT IT 
;REMOVE CHAR FROM BUFFER 
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-SBTTL SYSTEM MESSAGES 
ST BEX 


<12><15>/CZLAIAO LAOO DMT PROG/<15><12> 
/THIS TEST ASSUMES ALL TERMINALS ARE SETUP FOR/<12><15> 
4300 BAUD, 1 STOP, 1 PARITY, XOFF=KXON./<12><15> 
<12><15>/END OF PASS 
ie tetra OF PASS 000 TEST 00/<12><15> 
RESPONSE TO ATTRIBUTE PROMPT/<12><15> 
48° 133,60,143,0 ; TERMINAL ATTRIBUTE PROMPT 
33,133. (7,63, 73, 60, 143,0;LA00 DEV ATTRIBUTE RESPONSE 
< 


WW} 
WWNVYIMOOW 


<15> 
$3° 133,70,73,61,66,73,62,64,73,63,62,73 
64.60,73,64,70,73,65 86, 73, 66,64,73,67-62,73,70,60 
73. 70,70 0:64.73.61.61. 
73,61,62,60,73,61 G39 40800 
UBiaife TEST 24/<1 oats 
7 /PLEASE SETUP FOR / 
/HIT RETURN KEY WHEN YOU ARE DONE WITH ALL TERMINALS/<12><15> 
/BAD PARITY RECIEVED FROM LAQO/<12><15> 
/DATA OVERRUN ws /<12><15> 
/7 BIT AND SPACE./ 
/CHAR CODE ECHO TEST 21/<12><15> 
/TYPE DELETE TO EXIT/<1 <15> 
/7 BIT AND ODD PARITY./ 
/7 BIT AND EVEN PARITY./ 
/$/<12><15> 
/XON-XOFF TEST 23/<12><15> 
/TURN THIS TERMINAL OFF-LINE, THEN ON-LINE/<12><15> 
/BAUD RATE TEST 17./<12><15> 
/HORIZONTAL MOTION TEST 11/<12><15> 


/PLEASE SETUP FOR / 
Jn a AALS, HIT RETURN WHEH DONE FOR ALL TERMINALS./<12><15> 


/NULSOHSTXETXEOTENQACKBELBS HT LF / 
/VT FF CR SO SI_DLEXONDC2XOF DC4NAK/ 
oe SUBESCFS GS RS US SP / 


/ BAUD/<12><15> 

/BUFFER OVERRUN TEST —. 
33,133,.61,73,61,63,62,165,0 

7ERROR * XON NEVER oe elevep/<12><15> 
/ERROR * XOFF NEVER RECIEVED/<12><15> 


”1X/<11>/K/<12><15> 


/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
4X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 
/X/<11>/K/<12><15> 


at ant ad = E> 
mnrn—— 
an 


2 

5 

2 
060 
105 
101 
060 
114 
040 
116 
101 


: 
106 


So 


it 
mn 


4400 036225 
4500 036263 
4600 
4700 


So 


nb ad ot ed en on ee eed 
WWWAWWWWWW 

WoOOoOoo°o°oo 
jelelelelelelelola) 
par fw Po Pe Pe he Pe 
ud and and aad and and ae an ed 
ad exh and ad a nd ad eed 
WWNWWNANAWWWG 
lelelelelelelelolo) 


: 
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6600 037106 
6700 037110 
6800 037114 
6900 037117 
7000 v37123 
7100 037130 


8500 037417 
8600 037440 
8700 037463 
8800 037513 


9500 037555 
9600 


o 
o 
o 
° 


0 
0 
0 
0 
0 
0 
E 


/TEST 00 = DATA PATH T 
/SUSUSUSUSUSUsUsUsUsUsU*UeUeUeUeUsUeUSUSUSUSUSU8USUSUSUSUSUSU/ <12><1 
/TEXT 02 = NON PRINTING CHARACTER TEXT. THE NEXT LINE SHOULD BE BLAN 


AS -6,20,23,26,31,35,177.21,24,27,32,36,22,25,30,34, 37, 21,12,15,0 


WIEST 07 HORIZONTAL TAB TEST/<12><15> 
<33>/2/ 


/7 / 

<12><15>/POWER FAIL TRAP/<12><15> 
<12><15> 

<12><12><12><15> 


/SPACE - BACKSPACE TEST 05/<12><15><12> 
a/ * 


<10><10>/\/<10> 
/ALL PRINTABLE CHARACTERS TESTO1/<12><15> 


'£, 
/DOT MATRIX TEST 03/<12><15> 
/ZH*#$ = /<12><15> 
42 22 2zz = = 2222/<15> 
/H HH HHH HHHH/<15> 
/* = kkk xx /<15> 
a ro CLA HAAA/<15> 
$$$ $$$$/<12><15> 
<hadcqs>/THIS LINE PRINTED AT / 
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9700 037561 


MN 


WWWO 0 —]WWWNIWNWANWWG 
WWUTUINIW WAIN AIWIWIWIWWO 


MSG97: .ASCIZ 


<1 >/ABCDEF GHI JKLMNOPOQRSTUVWXYZ/ 
33,133,61,167,0 

/HORIZONTAL PITCH TEST _04/<12><15> 
/VERTICAL PITCH TEST 13/<12><15> 
/SET_MARGINS TEST 06/<15> 
33,133,60,60,61.73,61.63.62,163,0 
Fay AD el So AO y UES 


/ERROR IF NOT AT LH MARGIN/<12><15> 
Py pee 


/PRINTER BELL TEST 14/<12><15> 
eat _— A TEST 10/<12><15> 
<15> 


: 1 
MSG140: /SET CAPS LOCK OFF, SHIFT LOCK OFF, THEN / 
/PRESS ALL PRINTING KEYS./ 
<12><15>/DON'T PRESS ESC, TAB, RETURN/ 
7 /, BS, OR FUNCTION KEYS./<12><15> 
MSG145: . /PRESS THE SPACE BAR LAST./<12><15> 
: /PRESS THE SPACE BAR IF FINISHED/<12><15> 
/ : KEYS WERE NOT RECIEVED/<12><15> 
/TRY AGAIN , / 
<12><15>/ERROR * / 
/INVALID CODE RECVD : / 
/TEST #21/<12><15> 
/PRESS /<12><15> 
/ RH SHIFT AND B/<12><15> 
/SET SHIFT LOCK , / 
1272727/ 


/ LH SHIFT AND ‘A/<12><15> 
/4/<12><15> 

/ CTL=P/<12><15> 

/ ESCAPE/<12><15> 

/RESET SHIFT LOCK, SET CAPS LOCK, / 
/TAB/<12><15> 

/RETURN/<12><15> 

/0123456789/ 

/?/<12><15> 

/INVALID SEQUENCE RECVD/<12><15> 
/MIAN KEYBOARD TEST 20/<12><15> 
/SPACE/ 

/BACKSPACE/<12><15> 
/LINEFEED/<12><15> 
/DELETE/<12><15> 

sorcignct ae 


8888888 


seSsesescss 
SES55 
fete 
Ww Oo 


; 
: 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 


— = = 1 OO OP SS oS 
MONMNN SNM ONn 


MEAW AUN SNRWWE NON OW 


ke ed ed ed ed ed 

» 9 ae > ee 
Srowu— 

o---- | © 

—— = OO O0ONW— 


MSG170: . 


x 
o 
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15400 041234 MSG180: 


oe 
SDOMWNWAS 
Oo? —MWWNW 


00 / 
<12><15>/ENTER SETUP MODE, THEN TYPE THE FOLLOWING : / 
/EXIT SETUP MODE , AND TYPE A CTL-Q/<12><15> 
/V=F (CR) /<12><15> 
/H=D(CR) /<12><15> 
/H=C (CR) /<12><15> 
/H=B(CR) /<12><15> 
/H=A(CR)/<12><15> 
/V=A(CR)/<12><15> 
/V=B(CR)/<12><15> 
/V=D(CR) /<12><15> 
/V=E (CR) /<12><15> 
/V=C (CR) /<12><15> 
/NO RESPONSE RECIEVED/<12><15> 
/PITCH SETUP TEST 22/<12><15> 
/C /<12><15> 
/[-----/<12><15> 
| (-----/<12><15> 
/<12><15> 
MSG322: /[-----/<12><15> 


MSG323: /(----=/<12><15> 
/[----=/<12><15> 

MSG324: . | [---=--/<12><15> 

: /<12><15> 
/[-----/<12><15> 
/ [-----/<12><15><12><12> 
<12><15>/READY/<12><15> 
OR P :/ 

/? 2? 2? 2/<12><15> 
<12><15>/ENTER COMMAND(S) /<12><15> 
/RUN INTERVENTION TEST ?/<12><15> 
<007><12><15>/NO TERMINALS SELECTED/<007><12><15> 
<12><15>/ERROR * INVALID TEST NO./<12><15><07> 
<12><15>/ERROR * PMT CONFLICT/<12><15><07> 


ZesRe8 


SSBSBS 


MSG321: . 


33 


1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


60.61 
10 
11 
13 
14 
16 
17 


20400 04262 
20500 042652 000173 
20600 
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Oazee MSG101 037604 MSG180 041234 037075 


0 
020574 MSG100 037577 035310 037073 
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TBL12B TEST12 T12FIX 007500 001034 
T17A 0 


$VECT2 001066 
TEST11 010464 006370 001072 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 4382 WORDS ( 18 PAGES) 
DYNAMIC MEMORY: 5956 WORDS ( 22 PAGES) 
ELAPSED TIME: 00:01:14 

CZLAIA.BIN, CZLAIA.LST/-SP=CZLAIA.P11 





